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CONTRIBUCIONES 

Envfo adjunto a esta carta una con¬ 
tribución, fácil de comprender y que 
puede tener cabida en varías seccio¬ 
nes de la revista. 

Ei programa es una gufa telefó¬ 
nica que permite crear archivo, agre¬ 
gar nuevos datos y buscar registros 
por nombre o por teléfono. 

Espero que esta contribución 
original corresponda al slogan de 
le revista "Ayúdanos a ayudarte". 

Marcelo Marabolí 
123 Andrés Bello, Limache 


Con mucho agrado envío un pequeño 
utilitario que sirve para generar cual¬ 
quier Tabla de Impuesto Unico Men¬ 
sual, introduciendo sólo el valor de 
la Unidad Tributaria del mes respec¬ 
tivo. 

Está pensado para todos los que 
calculan sueldos, o habilitados. Inclu¬ 
ye opción de impresora. 

Arturo González M. 

Arlegui 645, Of< J. Viña del Mar 


En el número 17 de MUNDO- 
ATARI descubrí un utilitario para 
casetera: AUTOCAS. el que dio bue¬ 
nos resultados y es muy cómodo. 


Envío una colaboración similar 
que está protegida, es decir no se pue¬ 
de listar ni ver como está hecha: 

10 GRAPHICS 0: REM Línea para 
modificar el gráfico a gusto 
20 DIM G$(19): FOR V = 1 TO 19: 
READ DAT: GSÍV.V) = CHR$ 
(DAT): NEXT V: POKE 764,12: 

M = USR(ADR(G$)) 

30 DATA 162, 253, 154, 169, 183, 
72. 169, 84, 72. 169, 4, 32. 182, 
187. leí 255, 76,4,187 
40 FOR PROT = PEEK(130) + PEER 
(131) * 256 TO PEEK(132) + 
PEEKI133) * 256: POKE PROT. 
155: NEXT PROT 

50 POKE PEEK(Í38) + PEEK(139) 

• 256 + 2. 0; SAVE "C:" : NEW 

Los pasos a seguir son: 

1. Digitarel AUTORUN. 

2. Digitar en directo GOTO 40. 

3. Poner casete virgen en la casetera 
y presionar RECORD + PLAY. 

4. Presionar RETURN. 

5. El programa se grabará. 

6. Ahora cargue el programa BASIC. 

Si quiere protegerlo modifique las 
líneas 40 y 50, pero en lugar de 
SAVE "C:": NEW coloque ia for¬ 
ma CSAVE: NEW. 

Repita los pasos 3 y 4. 

El programa recuperado es impo¬ 
sible ejecutarlo con RUN. 

Gonzalo Galaz A. 
Casilla 16005, Santiago 9 


Como trabajo de equipo hemos desa¬ 
rrollado en el colegio un programa 
didáctico relacionado con el tema 
"Produce la aspirina en sobredosis 
daño en el estómago? 

El programa corresponde a la ob¬ 
servación práctica de dos ejemplares 
de Rattus norvellicus. 

Adjuntamos copia en casete de 
éste programa para consideración de 
MUNDOATARI. 


Sonia Rojas 
Liceo A-7, Iquiqua 


□ Todas estas contribuciones reci¬ 
ben un estimulo de $ 2.000 en soft¬ 
ware a elección. 

Esperamos sus preferencias. 

M.A. 


DESAFIO 6502 


En relación al problema plantea¬ 
do en MUNDOATARI 19, página 17 
de por qué el valor del acumulador 
era $ 5A, tengo la siguiente respuesta: 

En la línea 50 se le suma el valor 
contenido en la localización 10, que 
en este caso era $ 9F (159). 

Esto determina que el valor del 
acumulador sea $ 5A después de eje¬ 
cutado. Hay que tomaren cuenta que 
el valor al sobrepasar $ FF se "da 
vuelta" y se le adiciona 1 correspon¬ 
diente al bit carry. 

Pablo Lagos 
Av. Ramón Freire 255, Maipú 


El valor en el acumulador no co¬ 
rresponde, según lo indicado. Este 
debería ser 71 si el ADC corresponde 
al decimal 105, ó bien 246 si el ADC 
es el decimal 101. 

El ciclo del programa se repite 7 
veces. 

Si el ADC es inmediato cada vez 
suma 10, por lo que el resultado será 
70 más uno. El resultado final será 
entonces 71 ($47). 

Si el ADC corresponde al decimal 
101 se suma cada vez el valor de la 
localización 10, cuyo valor es 35. 
En este caso el valor final será 245 
más uno , o sea, 246 ( S F6). 

Una manera de obtener el valor 
5A sería modificando el valor de la 
línea 30 a LDA 420 y usar el ADC 
decimal 101. 
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Aprovecho para sugerir que inclu¬ 
yan el DSEMBLER y la serie "Apren¬ 
diendo ASSEMBLER en la lista de 
utilitarios en casete. 

Vladimir Sánchez 
Simpeon 513-B, Depto. 203 
Valparaíso 


Aún sin contar con el ASSEM¬ 
BLER Editor recurrí a la Tarjeta de 
Referencia donde aparecen los códi¬ 
gos de cada instrucción. 

Con ese recurso pude darme cuen¬ 
ta que la explicación dada por uste¬ 
des "agrega 10 al valor existente en 
el acumulador" no corresponde a la 
realidad, ya que el código de esa 
línea corresponde al díreccionamien- 
to de Página Cero. Ello índica sumar 
el valor .almacenado en la posición 
10 y no sumar el valor 10, según la 
explicación. 

Patricio Lera E. 

O'Higgins 56, Monte Aguila 


n Por sus agudas observaciones a! 
problema propuesto premiamos a 
estos 3 participantes con un diskette 
de ejercicios, que se les enviará a 
domicilio. 

M.A. 


ATARI CLUB ACHS 

Nos es grato comunicar a ustedes 
la constitución, el pasado 30 de agos¬ 
to, de la agrupació ATARI CLUB 
ACHS, formada por un grupo de 
profesionales de Prevención de Ries¬ 
gos, pertenecientes a la Asociación 
Chilena de Seguridad. 

El espíritu que anima a los miem¬ 
bro de la agrupación es el enriqueci¬ 
miento de la labor que desarrolla¬ 
mos, mediante la incorporación de 
los avances de la tecnología actual 
a nuestro quehacer profesional. 

Se nombró la siguiente directiva; 

Presidente: Sr. Hugo Cataldo P. 

Secretario: Sr. Víctor Márquez C. 
Tesorero: Sr. Juan Moiina G. 

Agradecemos de antemano el 
apoyo que brinda MUNDOATARI a 
los Clubes ATARI. 

Hugo Cataldo P. 

Presidente 

Santiago 


□ MUNDOATARI desearía conocer 
el teléfono y horas de atención de su 
presidente para una entrevista y esta¬ 
blecer forma de apoyo en su labor. 

M.A. 



CONSULTAS 

Agradecería información acerca 
de cómo suscribirme y forma de pago 
de dicha suscripción. 

También deseo adquirir algunos 
periféricos y el siguiente software: 

— Stock y facturación. 

— Facturación. 

— Stock Management. 

— Contabilidad I, II, III. 

— Printshop. 

Para una comunicación más expe¬ 
dita con ustedes necesito saber su 
número telefónico. 

R. Grandjean 
Oscar Belmar 044, Arica 


D E! valor de la suscripción por 24 
números es de $ 5.300. 

Los programas solicitados valen 
$ 800 cada uno. 

El número de teléfono aún no 
está dsiponible debido a! reciente 
cambio de domicilio. 

M.A. 


Por un amigo me impuse que el 
ATARI 800 XL es compatible con 
pequeños movimientos de cuentas 
corrientes, mantención y reparación 
de equipos, stock de repuestos, etc., 
razón por la que solicito cotización 
de diskettera, diskettes y portadis- 
kettes. 

Mario Maturana 
Avda Baquadano 205 
Coquimbo 


□ La respuesta a sus consultas está 
dada en el Catálogo de MUNDO- 
ATAR!. 

M.A. 


Reitero mis reconocimientos a 
MUNDOATARI, como la mejor 
ayuda para el programador. 

Mis dudas son las siguientes: 

— ¿Puede la XF-561 con el Sparta 
formatear un disco por el lado B? 

— ¿Cúal versión del Sparta es mejor 
la 1.0 ó la 3.2? 

— ¿Cuál es el precio del Sparta cori 
manual? 

— ¿Es más rápida la XF-551 que la 
1050? 

Gustavo Zamorano 
Jorge Montt 2, Punta Arenas 

□ La Xf-551 no formatea el lado B 
del disco, ya que toma ambos lados 
y los formatea para 360 Kb. 

El Sparta 3.2 es más completo 
que el 1.0 y su valor con manual es 
de $ 3.600. 

La XF-551 es más rápida y tiene 
mayor capacidad de almacenamiento. 

M.A. 


SUGERENCIAS 

Soy un seguidor entusiasta de MUN- 
OOATARI. 

Quisiera insinuar algunas sugeren¬ 
cias en beneficio de los suscriptores: 

1. El Catálogo central debiera venir 
separado de la revista. 

2. Incluir en forma extensa y expli¬ 
cativa el uso de utilitarios para 

personas que no tienen mayores an¬ 
tecedentes. Incluir asimismo ejemplos 
Aprovecho la ocasión de inscribir 
8 un nuevo suscriptor pampino. 

Jorge Salfate G. 
Colchagua 3021, María Elena 
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Editorial 


S E encuentra a punto de partir un nuevo año escolar y MUNDOATARI no 
puede estar ausente de este acontecimiento. Por esa razón hemos elaborado 
en este número algunas primicias como por ejemplo el dedicar varías 
páginas al tratamiento de una de las potencialidades más relevantes dei ATARi: 
la capacidad de sonido. 

El programa de colaboración Sistema Periódico de Elementos, original aporte 
de un lector de MUNDOATARI, y la inclusión de 2 juegos didácticos, para tipiar, 
con la contribución de Mícroeduc, dan un toque especial a esta publicación. 

Continuamos igualmente con 2 columnas que han tenido gran aceptación 
por parte de programadores y lectores: contribuciones de nuestros amigos. 

Ellas son motivo de estímulo y superación ai aparecer en nuestras páginas. La 
columna de Correo se proyecta como una necesidad de comunicación con 
nuestros lectores para conocer y atender*en parte algunas de sus necesidades. 

Estímos iniciando además 2 nuevas columnas de aplicación, como son 
la descripción de programas po(X) conocidos en Chile, entre los que destacamos 
el Qwik Pix que permite introducir gráficos del Print Shop en el ATARI Writer,y 
el Prínter's Patriot que proporciona más de 100 dibujos origínales para usar 
con el Print Shop. La segunda columna corresponde a una aplicación de tipo 
práctica, muy solicitada por lectores: descripción detallada de comandos y 
procedimientos para el uso del Procesador de Texto First XLENT. 

Agradecemos la acogida de nuestras ofertas de software y hardware por 
parte de nuestros amigos. Ellas continúan como se indica en el Catálogo. 

Se despide hasta el próximo mes, 


iván Gjurovic 
Editor 
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MUNDOATAR! dedica este número a! tema de! 
sonido, por cuanto se trata de una capacidad so¬ 
bresaliente del computador A TA Rt. 

Gracias a los efectos musicales sus programas 
serán nJs amenos e impactantes. Además usted 
tendrá un desafío constante en relación a! mane¬ 
jo y un campo abierto en ¡a investigación. 


COMANDO DE SONIDO 

El comando usado para activar los canales de 
sonido es SOUND, el cual controla directamente 
el parlante del televisor. 

Digite el siguiente ejemplo; 

SOUNDO, 121,10, 8 


Acto seguido usted escuchará un DO conti¬ 
nuo que se interrumpirá sólo al presionar la tecla 
RESET o bien al digitar END y presionar a conti¬ 
nuación RETURN. 

Analicemos el ejemplo recién interpretado, 
Vemos que necesita de 4 parámetros; 



voz 


NOTA 


DISTORSION 


VOLUMEN 


1. VOZ; 

El computador ATARI cuenta con 4 voces o 
canales independientes numeradas de 0 a 3. Con 
ellos se puede producir sonidos a 4 voces simuitá- 
neamente. ^ 
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TUTORIA: continuación 


2. NOTA: 

Los distintos sonidos que se pueden ejecutar 
vanan en el rango de 0 a 255. 

Digite el siguiervte programa de muestra; 


5 MM ■MIBMIWIOJIM 
le FDR N^-Z^iS TO 2SS 
28 50UND 8,ABSCN),ie,8 
se NUT N 

40 souHD 8,e.e,e 


Al ejecutarlo apreciará la amplia gama de so- 
dosdisponibles. 

3. DISTORSION: 

Este parámetro debe contener números pares 
entre 0 y 14. Sirve para introducir ruidos y efectos 
sonoros. 

Algunas combinaciones crean silencias. 

Los valores 10 y 14 generan sonidos puros. 

4. VOLUMEN: 

Al variar los números entre 0 y 15 podemos 
regular el volumen del sonido desde el silencio a 
la máxima potencia. 

El siguiente listado le facilitará la comproba¬ 
ción de los parámetros de nota y distorsión: 


2 REM ■J;m4iCT.I«trtCTa 
S GRAPHICS e:P0KE 7S2,1 

10 ? :? :? "yj 

15 ? “tQ 

20 ? :? " EGUB*';" WWHrCTIiCl 

11 

25 N=S0:0;:10:V=10 
30 T=PEEKC764l:IF 1^255 THEN 30 
35 IF T=14 ANI N>e THEN N=N‘'1:G0TO 55 
40 IF T:6 AID N<25S Tim RrNFltCfTt SS 
45 IF T=i5 AHI »>• THEN »=»>2:G0T0 55 
50 IF T=7 AN» 0<14 THEN D=0«2 
55 POKE 764,255 

60 P05ITI0N 0,7;? ,NJ" 'SO;" " 

65 SOUNO 6,N,0.V 
70 GOTO 30 


Comentario de líneas: 

5 Modo gráfico 0. Elimina cursor. 

10-20 Edita en* pantalla el encabezamiento de lec¬ 
tura de valores. 

El símbolo qué aparece junto a las flechas se 
consigue digitando 3 veces la tecla ESC. Para 
las flechas usé la secuencia: 

ESC/SHIFT/DELy ESC/SHIFT/ INS 


respectivamente. Esta es la única forma de 
editar las flechas como tales. 

25 N es la variable para el valor de nota, D es la 
usada para el valor de distorsión. V es la co¬ 
rrespondiente al volumen. 

30 La localizaciórv 764 detecta cuando una tecla 
ha sido presionada. El valor 255 indica que 
no se ha registrado ninguna tecla, en este caso 
se mantiene el computador a la espera. 

35-50 Serie de decisiones para determinar si la 
tecla presionada corresponde a las legales: 

s.a.s.Q 

Mediante dichas teclas podemos variar los va¬ 
lores de nota y distorsión que inicialmente son 
50 y 10. 

55 Anula el código de la última tecla presionada, 
60 Edita el valor de las variables N y D. 

65 Ejecuta el sonido correspondiente a las varia¬ 
bles editadas. 

70 Reinicia programa. 

Al ejecutar el listado podrá disfrutar cómoda¬ 
mente el repertorio de posibilidades sonoras dé su 
ATARI. Anote las combinaciones que le interesen. 



• Mediante el programa anterior compruebe las 
siguientes combinaciones: 


Nota 

Distorsidn 

Sonido 

100 

4 

auto 

100 

6 

generador 

100 

8 

rocket 

100 

12 

avión 

60 

12 

cortadora pasto 

200 

0 

contador Geiger 

120 

0 

fuego 

20 

0 

chorro vapor 

120 

8 

interferencia 

20 

8 

caída agua 

42 

2 

buzzer 


Amplíe su repertorio de ruidos y sonidos para 
utilizarlos posteriormente en sus programas. 
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TUTORIA: continuación 


• Modifique en el listado "Prueba de sonidos" 
la siguiente línea: 

65 V = 8: SOUND 0. N. D. V: SOUND 1, N + 4, 

D. V: SOUND 2. N + 8, D. V: SOUNO 3. N +12. 

O.V 

Al ejecutarlo de nuevo activamos los 4 canales 
simultáneamente en forma de acordes algo locos. 
¿Qué le parece intentarlo?. 

• Modifique en el listado "Prueba de sonidos” 
la siguiente lineal¬ 
es FOR V = 15 TO 0 STEP 0.8: SOUND 0, N. D, V 

:NEXTV 

Al ejecutarlo producimos un efecto PING en 
la interpretación. 

El volumen disminuye gradualmente de 15 a 
0. Si ponemos un grado menor que 0.8 en STEP 
el efecto es más lento. 

i Experimente sin temor! 



NOTAS MUSICALES 

Para tocar notas musicales puras se debe poner 
el parámetro de distorsión en 10 ó 14. 

El siguiente esquema préenta una visión en 
partitura de las notas que puede interpretar el 
computador. iMás que suficiente para cualquier 
melodía!: ' 


En la Tarjeta de Referencia MUNDOATARI 
están consignados los mismos valores asociados a 
los nombres de las notas. 

Ti 

A continuación transformaremos parte del 
teclado del computador en un instrumento musi¬ 
cal. 

Mientras mantenga presionada una tecla de 
números entre 1 y 8 se escuchan las notas de la 
escalé básica. Al tocar algunas de ellas mantenien¬ 
do presionada la tecla SHIFT se escuchan los me¬ 
dios tonos (sostenido o bemol); 

No se pueden tocar 2 notas al mismo tiempo. 

Digite y ejecute el siguiente listado; 


5 GOTO 288 
16 ftEH W 


ItiNO M 




11 REH ^Tabla de notas 


12 REH ^ntre lineas 24 y 115 
IS REH 


24 Nr.91;RETURM 

26 N=96:RETURH 

27 Nr72:RErURH 
29 N=61:RETURN 
38 N=106:RETURN 
31 N=121:RETURN 
51 N=64:RETHRR 
53 M=6t:KTIIIHÍ 

93 H=76:RCTttRN 

94 H=m:RETURH 

95 Nrll4;RErURH 
102 N::65:RETURN 
lis N=68:RETURN 
128 REH 

125 REH MHos nuneros de linea 
130 REH ««corresponden a códigos 
135 REH ««de localización 764 
148 REH 

208 GRAPHICS 8:P0KE 752,1 
218 ? :? "PIANO HUNOOATARI" 



265 243 230 217 204 
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TUTORIA; continuación 


220 ? :? "Presione:" 

230 ? :? teclas l-*0 para tocar esca 
la nornal” 

240 ? "K • SHlfm,2,4«5.7 para Medios 
tonos":? 

258 NrPrEK(764) 

260 It Nr.255 THEN 250 
270 TR0P 340:0O5UB N 
260 ir N-UT 1HEN 310 
290 lITrH 

300 50UND 0,0,10,10 

310 I:-INT(PFEKC53775)/4) :1F (1/2)=IHT( 
.1/2) THEN 2S0 

320 POKE 764,255:50UHD 0,0,0,0 
330 UT=“1 
340 0OTO 250 


Comentario de líneas: 

24-95 Tabla de notas en forma de subrutinas. 
El valor en la variable N , puesto por la loca¬ 
lización 764, dirige el programa a una línea 
específica. Una vez allí se transforma dicho 
valor en el código de la nota. 

260 Mientras no se toque una tecla el computádor 
queda a la espera. 

270 Ún error debe producirse al tocar una tecla 
no documentada (al enviar el programa a 
una línea inexistente). 

El comando TRAP previene esa situación. 
310 La localización 53775 controla el tiempo que 
cualquier tecla está presionada. 

Esta línea controla la duración de los sonidos. 


DURACION DE UNA NOTA 

Una característica importante de la música es 
la duración de las notas en el tiempo. 

La única posibilidad de controlar el tiempo es 
con un ciclo de demora. Por ejemplo sirve a este 
propósito el comando FOR...NEXT. 

Tenemos que registrar para cada nota un valor 
de duración, como por ejemplo: 

Nota Duración 

redonda 128 

blanca 64 

negra 32 

corchea 16 

semicorchea 8 
fusa 4 

semifusa 2 


En MUNDOATARI 18, en la columna Contro¬ 
lando la casetera se trató este tema a propósito de 
2 canciones de Navidad. 



MUSICA CON DATA 

El siguiente listado aplica los conceptos expli¬ 
cados hasta ahora: 


5 REN 

10 DftTA 108,16,96,16,05,64,85,16,72,16 

,53,64,57,16,53,32,72,32,65,16,96,16,1 

06,64 

15 TRAP 45 

20 REA6 N,8 

25 SOU0I> 0,0,10,10 

30 FOR T=6 TO P08:0E0T T 

3S 5OIIII0 0,0,0,0 

40 SOTO 20 

45 E0D 


Comentario de líneas: 

10 DATAS pareados para interpretar una canción 
sencilla. El primer valor es la nota y el segun¬ 
do es la duración. 

15 Cuando no hay más DATA salta al final. 

20 Lee dos valores y los almacena en N y D. 

25 N es la variable de Nota. D es la variable para 
Duración. 

30 Ciclo de demora en el que multiplica el valor 
en D por 8. Al variar este número se hace la 
interpretación más lenta o más rápida. 

35 Pone la voz en silencio antes de pasar a la pró- 
ma nota. 
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TUTORIA: continuación 


MUSICA MAESTRO 


Como broche final a esta sección ofrecemos 
un programa de tipo profesional que interpreta 
un conocido trozo musical con acordes a 4 voces. 

Digite y ejecute el siguiente listado: 


1 RrN 

5 POKE 764,255 

10 GftflPHICS 1:P0KE 71?,148}P05ITI0« 5, 
letPRlMT CUBftRET 

26 REN * Variable.<>; P^Tone- MrHota ■ C 
RD::Arorde - HAlT'Rurarion nota * 

24 REH 

36 DIM M(56):REH * RiMensiona arre 9 lo 
34 RFH 

46 Rf-H « 1. Pone notas en arreglo # 

56 FOR NBR-I TO SBiREAR PITCH:N(NBR)=P 
ITCH:NEX1 )IBR:G0T0 166 
54 REH 

66 REH * 2. Rutina toca notas solas * 
76 SOUMD 6,H(P).,ie,14:G0TÜ 126 
74 REH 

86 REH « 3. Rutina toca acordes * 

36 Pe.-RCP) :Plr||(CR6) :P2:H(CRBf4) ;P3-R( 
CRO+7) 

166 50UH6 0,P6,i6,6:SOUN6 1,P1,16,4:56 
UN6 2,P?,16,4:S0UN6 3,63,16,4 
164 REH 

116 REH * 4. Rutina Mide duración de ri 
otas * 

126 POKE S46,HAir 

136 IF PEEK(546)<>6 THEH POKE 77,6:G0T 
0 136 

146 50UHP 6.0,6,0:RETURH 

144 REH 

156 REM » Fin de MUSica - Toque 5T6RT 
rutina * 

166 FOR OFFrO JO 3:50UMP 0FF,6,6,6:NFX 
T 0FF:P0KE 752,l:PRINT CHflS(t25):PRINT 
" TOQUE aCOII PARA REPETIR" 

170 RE5T0RE 256:IF PEEK(53273)<>6 THER 
GOTO 176 
186 GOTO 246 
184 REH 

196 REM » PATO fie inicializacion * 

208 OATA 255, 243, 236, 217, 204, 193, 
182, 173, 162, 153, 144, 136, 128, 12 
1, 114, 168, 162, 96, 91, 85, 81, 76, 
72, 68, 64 

210 OATA 66. 57. 53. 56. 47, 45. 42, 4 


6, 37, 35, 33, 31, 29, 27, 26, 24, 23, 

22, 21, 

19, 18, 17, 16, 15, 14 


214 REH 



226 REH 

K Lee g toca acordes, voces g 

Espera DATA « 


236 REH 



246 REAO 

CRD,P,HAIT:G05UB 90:ftEOD P,HA 

IT:G0SUB 

76 


256 OATA 

9, 16, 16, 17, 16 


266 REH 



276 REAO 

CRD,P,HAir:G05U6 9B:F0R 

xn T 

0 4:REAO 

P,HaiT:G05U8 76:NEXT X 


286 DATA 

2, 18, 16, 26, 23, 18, 16, 26 

, 31, 18 

26 


298 REH 



366 READ 

CR0,P.HAI1:G0SUB 96:F0R 

X=1 T 

0 2:READ 

P,HAIT:G0SUB 76:HEHT X 


316 DATA 

19, 26, 66, 26, 16, 28, 

16 

320 REH 



336 READ 

CR0,P,HAir:G05UB 98:F0R 

H=1 T 

0 2:READ 

P,MAIT;G0SUB 76:REXT H 


346 DATA 

26, 36, 16, 26, 26, 28, 

16 

356 REH 



360 READ 

CRD,P,HAir;G05UB 96:F0R 

H=1 T 

0 2:READ 

P,l4An:G0SUB 76:NEXT M 


376 DATA 

21, 36, 16, 25. 16, 28, 

20 

386 REH 



396 READ 

CRD,P.HAIT:G05UB 96:FOR 

X::! T 

0 2¡READ 

P,HAIT:G05U8 76:NEKT K 


466 DATA 

14, 26, 26, 9, 26, 2, 46 

416 REH 



426 GOTO 

166 



Comentario de líneas: 

40-50 Pone notas en arreglo N(50), el cual consti¬ 
tuye la tabla de sonidos. 

70 Rutina que toca notas solas. 

80-100 Rutina que toca acordes. 

Primero pone los códigos en las variables P(0)- 
P(3) y a continuación los ejecuta todos juntos. 

120-140 Rutina para manejar la duración de las 
notas. Se trata de otra forma de controlar el 
tiempo mediante un reloj interno (740). 

160-170 Rutina para callar los canales y esperar 
eventualmente la presión de la tecla START 
para repetir ejecución. 

240 Inicio del programa central , que maneja el 
sonido de notas solas o con acordes, depen¬ 
diendo si lee las variables P y WAIT o bien 
CRD, Py WAIT. 

Bien amigos, con música estamos despidendo 

nuestra columna. 

Asistente BENITO 
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TUTORIA: continuación 



ACORDES EN ESCALA 

Usando la técnica de lectura de DATA y al¬ 
macenamiento de ellas en un arreglo (N) se eje¬ 
cuta una escala musical con manejo de los cuatro 
canales de! computador. 


MUNDOATAfíl presenta a continuación una 
serie de cortos programas para aplicar los cono- 
cimientos adquiridos en las páginas anteriores. 

Digite ejecute y modifique las siguientes 
rutinas de EFECTOS ESPECIALES DE SONIDO: 


é GRAPHICS 2:P0Ke 764,Z55:P0K£ S99,eiP 
OKC 712,m!P0ICC 7U,128!P05ITI0H 7,5: 
PRIHT R5;"aC0R»ES*' 

5 GOTO 68 

18 Pe=N(P) :PUN(CR8) :P2=N(CR»t4l :P3=NC 
CM*7) 

28 S0UN8 8,P8,ie,6:S0HHD 1,P1,18,4:S0U 
N8 2,P2,18,4:S0UND 3,P3,18,4 
38 FOR PftU5E=l TC 588:KXT PAUSE 
48 IF CR8=14 AN» P=26 THEN FOR PAUSE=8 
TO 588:NEXT PAUSE:FOR 0FF=8 TO 3:S0UH 
8 0FF,8,8,8:HEXT 0FF:REST0RE 288 
58 GOTO' 208 
68 8IH NC58) 

78 FOR N0R=1 TO 58:REA8 PITCH:N{NOR)=P 
IT€H:NEXT ÑOR 

88 REH IHW OATA 8E NOTAS WHI 
SO DATA 255, 243, 230, 217, 284, 193, 
182, 173, 162, 153, 144, 136, 128, 121 


, 114, 188, 102, 
2, 68, 64 

96, 

91, 

85, 

81 

188 OATA 68, 57, 

53, 

SO, 

47, 

45 

8, 37, 35, 33, 31, 29, 27, 26, : 

22, 21, 19, 18, 

17, 

16, 

15, 

14 


198 REH HAN OATA 8E ACORRES *** 

208 REAO CRO,P:GOTO 10 

218 PATA 2, 14 

228 OATA 4, 16 

238 OATA 6, 18 

248 DATA 7, 19 

250 OATA 9, 21 

268 OATA 11, 23 

278 DATA 13, 25 

288 OATA 14, 26 


Efectos especiales de sonido 
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TUTORIA: continuación 





8 GRAPHICS 2:P0Ke 764,25S:P0KE S88,e:P 
OKC 712,99:P0KC 7ie,99:P0SITI0N 3>5;PR 
INT RACULA!" 

S REH ** Lee valores de sonido y disto 

rsion de RATA «k 

18 FOR ){=8 TO 3:REAR P,fr 

28 SOUHR 8,P«R,12 

25 REH PAUSA 

38 FG; PMlSArl TO 28B:NEKT PAUSA 

48 NEKT X:RESTORE :GOTO 10 

58 REH ** Los DATA están pareados (NOT 

A, DISTORSION! «K 

188 DATA 58,2,85,18,158,6,188,0 


DRACULA 

El nombre es un tanto arbitrario, pero simbo¬ 
liza e! ambiente de un sonido tenebroso y espe¬ 
luznante. La rutina se repite ininterrumpidamente. 


LA BOMBA 

Esta rutina consta de 2 ciclos en su ejecución: 
uno que simula la caída de un proyectil en el es¬ 
pacio (línea 20} y otro que reproduce la explosión, 
con una disminución progresiva dei volumen (lí¬ 
neas 40-50). 

Los efectos se complementan con un apoyo 
gráfico de la pantalla, con lo que lucen mejor. 

Con la tecla START se puede repetir la acción. 


8 POXE 764,255 
18 GRAPHICS 17 

28 FOR X=18 TO 188:S0UND 8,X,ie,18:S0U 
ND l,X-2,ie,8:50UHD 2,Xt2,18,12;NEKT X 
56 SDUND 1,8,8,8:S0UND 2,8,8,8 
48 PQ5ITI0N 4,li:PRINT tl6;"60000HHH>" 
58 FOR DECAVnS TO 8 STEP ~8.S:S0UND 8 
,188,8,DECAY;FOR 8=1 TO 28:P0KE 712,8: 
NEXT B:NEXT DECAV 
68 GRAPHICS li32:P0KE 712,148 
70 POKE 752,1 

80 PRINT ;PRINT "Toque mm para en 
pezar...!" 

90 IF PEEK(55279)<!6 THEN GOTO 98 
188 GOTO 18 


TRENCITO CHU CHU 

Interesante rutina que reproduce la partida 
y posterior marcha de un trencito a vapor. 

El ritmo varía a medida que se ejecuta. 

La pantalla también complementa con sus 
títulos el sonido de fondo. 

Una vez en marcha el trencito no vuelve a 
parar (salvo que usted decida y programe lo con¬ 
trario). 


8 POXE 764,255 

18 REH TRENCITO CHU-CHH 

28 GRAPHICS 17:P0KE 712,14d:P0Siri0N 1 

,18;PRINT tt6j"TRENCIT0 CHU-CHU" 

38 FOR H=15 TO 8 STEP -1-P;S0UND 1,8,8 
.K 

48 R=lNT(RND(8)n388)«l 
58 IF R=38 THEN SOUND 3,36,18,18:S0UND 
2,48,18,18;G0SU8 98:S0UHD 3,8,8,8:S0U 
ND 2,8,8,8 
68 NEXT X:P=pi8.83 
78 IF P>=5 THEN P=5 
88 GOTO 38 

98 POXE 77,8:P0SITI0N 8,12:PRINT tt6:"t 
uut":F0R A=1 TO 488:NEXT A:P0SITI0N 8, 
12:PR1NT «6;" "iRETURN 
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TUTORIA: continuación 


PAJAROS 



BOCINA 


; KSiliía 

iíí *? ”&4iDi5r TG5I1 ‘'íT-JIPIm D 
ÍF FQq i.x TÜ 
>- Fyi? K->; fO ty 
. 'í 30ü¥!> 

T0 WE>T K;ME -T ..i 

:f. rsi> 


EN LA PLAYA 


5 &£H 

•0 ? "DURftOIOH- "J aUPUT tí 

15 'OHSO 0, i?l>13,8 
?0 5i3li|{l t; 120, 10,8 
?5 50üHí> 7;8,?,2 

16 F9R T-i T'" nx7P;MEV:T T 
35 EÍÍ& 


REBOTES 


5 PFM wisi>wa 

.18 FOR J-Z% TO I 5TfP “í 

15 '-AR Kr l 76 5 

28 50U*n 6.125, 14,f. 

25 MEXT K 

•16 3QUII0 0; 6, A. e 

35 FOR K:l 70 J»5:NE^T K 

46 KErT J 

45 FÍO 


TELEFONO 


rfh gi3i7jna 

Ifi ’> ’'!>llRíkr.IOH- ';;IHPUT B 
15 FGR jiil TC D 
:41!KD 6, aC.i9.. 5 
25 r-OÜID .Í,3S,lg.5 
36 5Üf:íi* 2,46,2,4 
35 FOR t-I TO SBRíNFKT T 

rgíj f;:.a TO lüOUHf C ,3,6,8: ÜF!?: 
45 XF THFl{ 55 
56 FOR Tvl Tfl XFIiüEHT T 
5X WE?^T ,! 

68 EH? 


5 f.¡ f! lisias 

iv ■ "OURACTON-- ''jiTKAUT O 

15 FOR L.ri Tfr & 

29 rr.R .1-6 TO 45 
?5 '.OfjMP 9,vS,?,4 

X.fi rOR k'rj TD ;»»Fy:T X 

•XS KFKT .- 

40 FOR J-45 TO ^ LTFP -? 

45 30UIÍ0 4,8,4 

36 FÜ.'i K-.:i 70 5e + ??M& ÍCOH36:í4EXT X 
55 «FXT .jiFOC- V.zi 5084R1¡0{6)^386 íKE 
ííT K 

60 HEXT l 
65 FKD 



DESPEGUE DE NAVE 


REGlir 


5 R£H. 

16 ■ "tURéCIOMr ”;;T|iPltT D 
Í5 FÜR L:l TO 6 
21 FOR J=6 TO 45 
25 SOUNO 
36 HEXT 1 

'5 FOR JT45 70 8 5TEP -1 
40 xmiíD 6,J,8,J/'5*6 
45 FOR 70 ?ei.í^43:liFHT K 
58 MEK'T JíMFjJT L 
55 FMO 


... Y con estos efectos nosotros también 
despegamos de esta sección dedicada especialmen¬ 
te a los amigos lectores que se interesan por esta 
capacidad de su computador ATARI. Esperamos 
que tengan material suficiente para continuar in¬ 
vestigando por su su cuenta y riesgo. .. # 
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ENTREVISTA 


MUNDOATARI 
en las Regiones 


En nuestro recorrido por /as re- 
giones de Chile visitó MUNDO- 
A TA Rl en /a ciudad de Arica la 
empresa Microeduc, con el pro¬ 
pósito de entrevistar a! señor 
Alberto Flores Berrfos, desta¬ 
cado profesor de inglés y dise¬ 
ñador de software educativo. 


¿Cuál fue su primera experiencia 
en computación? 

Estudiando un postgrado en 
la universidad de Brigham Young. 
Uno de mis profesores. Lyal 
Holder, me sugirió mejorar cier¬ 
tas habilidades de comprensión 
de lectura vía computador. En 
un comienzo me sentí muy in¬ 
cómodo frente al computador. 
Tenía todavía la idea que el 
computador servía sólo a los 
profesores del área científica. 
¡Qué errado estaba!. 

¿Cómo se inició en el desarrollo 
de software educativo? 

Por el año 1985 me sugirió un 
destacado empresario y amigo 
que podría canalizar mis conoci¬ 
mientos de educación en el di¬ 
seño de software educativo. 

Con su apoyo y sabia direc¬ 
ción logré diseñar mi primer 
software al que llamé "compren¬ 
sión de lectura". 

Hemos sabido que usted tuvo 
gran éxito en uno de sus encuen¬ 
tros de computación educativa, 
organizado por la Universidad 
Católica. ¿Qué hayde ello? 

En octubre de 1985 recibí 
una invitación de la profesora 
Ruth Donoso para que presenta¬ 
ra mis trabajos al encuentro que 
usted alude. 

Mientras presentaba el segun¬ 


do de mis tres programas los 
: asistentes comenzaron a aplaudir. 
Nunca esperé tal reacción espon¬ 
tánea, honesta y calurosa. Me 
sentí asombrado, contento y sin 
saber que decir. 

¿Cuáles son las características de 
sus programas? 

Primero debo destacar que 
he ido quemando etapas corno 
diseñador de software. 

En mis primeros programas se 
advierte escaso uso de las capaci¬ 
dades de gráfica, color, sonido y 
animación. Lo rescatadle de ellos 
está en los niveles de habilidad 
a alcanzar y en su metodología. 
Mis programas actuales presen¬ 
tan un equilibrio entre la parte 
educativa y las capacidades del 
computador ATARI, destacán¬ 
dose .el proncipio "aprender 
por medio del juego". 

¿Qué programas con esta carac¬ 
terística ha lanzado al mercado? 

Entre ellos tenemos: Verbos 
regulares e irregulares en inglés, 
el uso ortográfico de la B y la 
V, el sistema circulatorio y ex¬ 
cretor, Geo Chile y el planeta 
Tierra. 

¿Cuál es su opinión respecto 
al uso del computador en las 
escuelas? 

En general veo que se enfa¬ 
tiza en demasía la enseñanza 
de lenguajes como BASIC o 
LOGO. Pienso que sería bueno 
enseñar a los alumnos a traba¬ 
jar con programas utilitarios 
como Procesador de Textos 
o Base de Datos, El primero 
tiene un carácter práctico de 
usar el computador como má¬ 
quina de escribir, el segundo 
permite desarrollar la habili¬ 


dad de clasificación de la in¬ 
formación, tomar decisiones, 
pensar acerca de lo descono¬ 
cido. etc. Por otro lado se 
debiera usar programas que 
apoyen la labor del profesor 
en el aula, tanto en el área de 
aplicación de contenidos como 
en el desarrollo de habilidades 
cómo aprender. La ezperiencia 
indica que el computador es 
muy positivo en esta última 
área. 

¿Qué tipo de software educa¬ 
tivo diseña usted? 

Principalmente programas 
que tienden a apoyar la labor 
del profesor en el aula. Ultima¬ 
mente' hemos salido de este 
contexto y estamos terminando 
un programa que tiende al desa¬ 
rrollo del lenguaje, donde el 
aprendizaje se logra a través del 
descubrimiento vía ensayo y 
error. Un programa de similares 
características llamado "Light” 
está dando muy buenos resul¬ 
tados en los niños del Reino 
Unido. Nuestro programa lo 
llamaremos "Lenguaje". 

¿Qué planes tiene para el fu¬ 
turo? 

Varios. El que creo que tiene 
mayor posibilidad de realizarse 
en un futuro cercano es un pro¬ 
yecto que esta siendo estudiado 
por una universidad del Reino 
Unido para llevarlo a cabo en 
conjunto con la Primera Región, 
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PROGRAMAS 


Contribución 



En nuestra redacción hemos recibido una carta 
procedente de Angol y firmada por un asiduo lec¬ 
tor de MUNDOA TARI, don Alfonso Merino C. 

Adjunto a dicha carta viene un ca^te que 
contiene varios programas, que tienen la intención 
de servir como aporte a la comunidad atariana. 
En vista de la extensión e interés de los mismos 
hemos decidido publicarlos en esta edición en un 
espacio distinto a la sección Correo y dedicado es¬ 
pecialmente a nuestro amigo lector. 


MUNDOATARI presenta con mucho agrado 
la colaboración de nuestro lector y le hará llegar 
su premio en software, según sus preferencias. 
Felicitaciones. 


RELOJ DIGITAL 

Se trata de un reloj en modo gráfico 2 que se 
puede poner a la hora y es muy exacto, según opi¬ 
nión de su creador. 


I PRIMT "V 

II PRMT "ERTRE U HORACH, R, W: IMPUF 
IIR,MÍ>SC 

20 FOR NR=iiR TO 21 
20 FOR IRI=MN TO 51 
41 FOl SC=5C TI 59 
57 GRAPHICS 2 

60 PI5ITI0I 6,5!PIIIT II6;HR; «S “J RMJ"!" 

;5C 

63 PIIIT "GEMIILEZA lE MERIHI Í SOFT L 
TOÉ. CILI-COLO 049 MGOL" 

65 PIKE 752 «I 
78 FIR T:e TO 374 
00 NEKT F 

•5 SIUID 0,25,11,ISíFIR Z=1 TO 1:MEHT 
Z'.SOIN» I,i,0,0 
00 NEKT SC:5C=0 

25 SIUID 1. 201,10,15:50010 1,210,11,15 
:SIUID 0,25,14,15!FIR X=1 TI 1:IIEKT I: 
50INI 1,0,0,0 
101 lEXT NI :HI=:I 

115 SIUID 2,210, II ,155 SOUIO 2,201,10,1 
5;50IHI l,25,14,15;FOt N:! TO 2S ItKT M 
:S0INI 2,1,0,0 

III «EKT IR:HR=0 
121 (OTO 20 
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PROGRAMAS 


RELOJ CONVENCIONAL 

Esta versión representa un reloj análogo con 
horario-y minutero y también se puede poner a la 
hora para inicializarlo. 


II COTO 39 

21 X=INT(XC-XR»C05(A)):Y=lNTCyC'VR»SlN 
(A)3:RETURM 

30 OIM 0$C5),K$C1),TIME$(5) lOPEN 111,4, 
8,"K;'‘;P0ICE 12,8 
35 5EG=e 

48 GRAPHICS 18:P0$ITI0N 1,5:PRINT tl6;" 
1. RELOJ ATARI "iPOSITION 3,9:? 06;**PR 
E5I0NE Q*' 

70 GET ttl,K;K$=CHR$CKl;If OR K$ 

>"5" THEi 79 
95 GOTO 259 
199 GOSUB 290 

139 GOSUB 480:Am=MI:OHR=HR:HN=O:HR=12 

280 NH=0!6OSUB 440:GOSUB 480:FOR TD=1 

TO ISOOiHEKT TD:GOTO 110 

219 IF HR=5 THEH NR=9;GOSUB 590 

230 SOURO 2,0,0,0:SOUNR 1,9,O,0:FOR TO 

=1 TO 690:REHT T0:F0R 1=1 TO 9:? CHR$( 

30);:next i:? " '•¡returh 

240 FOR T=1 TO 15O0:NEXT T:GOTO 49 
259 GOSUB 290 
255 HR=9 

269 GOSUB 440:GOSUB 480 

265 IF NR=0 THER GOSUB 540 

266 IF K$<>"A'* THEH 269 

267 IF KS=''A'' ANO MR=0 THEN HN=HN-1 



268 M)=29:G0SUB 799 

279 GOTO 269 

260 REN OIBUJA RELOJ 

290 GRAPHICS 6:SETC0L0R 2,O,0:G0SUB 41 

9:COLOR 1:XG=80iYC=38:YR=26:KR=YR«1.2: 

GOSUB 340 :KR=XR?8: VR=YRH:YC=VC-4 

300 NH=8:NR=0:P0KE 656.0:POKE 657,25:P 

RINT *'(H)ORAS (MINUTOS (A)UTOHA 

TIC* 

310 FOR 9=1 TO 12:A5=STR$CQ):A=9»36?90 

:60SUB 20:H=INT(X/8}:G0SUB 389:NEKT Q: 

XR=XR-10;YR=YR-10:YC=VC+4 

320 HR=i2: mi=9:OKXrXC:OHK=XC:OHY=yC:OH 

V=YC:RErURN 

330 REM SUBRUTINA OIBUJA CIRCULO 
340 DEG :FOR A=9 TO 360 STEP 10:GOSUB 

29 

350 IF A=0 THEN PLOT H,V 
360 ORAHTO X,Y:NEXT A:RETURN 

379 REH UBICACION OE CARACTERES 

380 CHR0N=57344 i SCREEN=PEEK(881?256ftPE 
EK(893 tHtV«29'(LEN(A$}=2) 

390 FOR A=1 TO LEN(A$} ;CS=CHROMASC(A$ 
(A,A33»8-256 

400 FOR B=0 TO 7:P0KE SCREENtB«2e,PEEK 
(C5?63:REKT BlSCREEN=SCREENn:NEXT A:R 
ETURN 

410 0L=PEEK(5893?256»PEEK(S613:P0KE OL 
n5,7l:P0KE 0L?88,2:P0KE PL«89,65 
429 POKE 0L4^99,PEEK(5683 :P8KE DL-»91,PE 
EK(561):RETURN 

439 REH SALIDA DEL TIEHPO EN EL RELOJ 

448 COLOR 9:PL0T XC,YC:DRAHTO 0HK,0HY: 

PLOT XC.yC:DRAHTO DHK,OHV 

458 COLOR i:A=ni«6t9e:G0SUB 28:PLOT KC 

,YC:DRAMTO X,V:HR=XR/2:YR=YR72:OHX=K:O 

HY=Y 

460 A=HIH(39t90tHN/2:GOSUB 20:PL0T XC,Y 
C:ORAHTO X,Y:XR=XRH2:yR=YRft2:OHX=X:OHY 
=Y:RETURN 

470 REH HORA DIGITAL 

480 POKE 656,0:P0KE 657,6:P0KE 658,0:1 

F HR<18 THEN PRINT ** 9 "; 

490 TIHE$=STR$(HR}:GOSHB 529:PRINT CHR 
$(1543; 

590 IF HN<19 THEN PRINT CHR$(483; 

505 TIHE$=STR$(HN3:G05UB 529:? CHR$(58 

); 

510 IF NR=9 THEN TINE$:‘'90'* :GOTO 520 

512 IF SEG<19 THEN PRINT CHR$(483; 

513 TIHE$=5TR$(SEG3 

514 SOUND 1,2S,10,15:F0R T=1 TO l:NEKT 
T:SOUHD 1,0,O,O 
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PROGRAMAS: continuación 


515 60SUB 52e:5E6=SEC^l 

516 IF SE6=66 THEN SE6=e:? CHR$C253):R 
ETURN 

517 REH CONTROLRROR PRECISION RELOJ EN 
LINEA 518 

518 rOR T=1 TO 225:NEXT T 

519 COTO 480 

52» FOR A=1 TO LEN(TIME$):PRINT CHR$CA 
SCCTIME$CA,A))F96];;NEXT A:RETURN 
538 REH R 

54» 6ET m,K:K$=CNR$(K):IF K$=“H" THEN 
HN=HNn:IF HN=68 THEN Mf=0 
55» IF K$="H" THEN HR=HR4^1 
56» IF HR=13 THEN HR=1 
57» IF Nl=‘*H" OR K$=«H" IR K$=CHR$(155 
) OR K$="Q" THEN RETÜRN 
575 IF K$=*‘A" THEN RETÜRN 
58» GOTO 54» 

590 RESTORE 62» 

600 REA» NT,L;IF NT=-1 THEN SOUNO 1,0, 
0,»:RETURN 

700 REH AUTOHATIZACION 
71» HN=NNn 

720 IF HN=60 THEN HN=e:HI=RRfl 
730 RETÜRN 



CAJERO ATARI 


Este programa permite llevar la cuenta por ca¬ 
da compra efectuada por el cliente, dando el vuel¬ 
to en pantalla y dejando en memoria las entradas 
del día. Al finalizar la jornada indica si hay saldo 
a favor o en contra. 


76 REN POR ALFONSO HERINO C.FAIA REUIS 
TA MINIO ATARI 
10 OPEI Rl, 4,1, "K” 

lio GRAPlICS OsSETCOLOR 2,12,3 :9ErCOLO 
R 4,12,3 

120 POSITZIN 5, 3; ? "M U N D O ATAR 


I « 1 9 I 8" 

140 P05ITIIN 6,5:? 

mmu m 

160 POSITION 1,7:? 


iPlAKllLA tE CONTRO 


180 PO5ITI0N 1,1:? “PAGI C/« 
201 FOSiniN 8,0:? "PAG." 

221 POSITIIN 14,8:? "PAC." 
240 PISITION 20,1:? "PAfi." 
261 P05ITXIN 26,8:? "TOTAL" 
280 POSITION 33.8:? "VUELTO" 
301 POSITION 0,1:? " 


321 POSITION 0,11:IIPITA 
340 POSITION 7,11:1NPUT B 
360 POSITION 13,ll:INPir C 
371 IF C=e THEN 410 
381 POSITION 19,11 :INPLJT » 

401 E=B4CID; POSITION 26,11:? E 
421 K=K4E 

441 F=A-E:POSITION 33,11:? F 

461 POSITION 5,18:? '111SKQOIISZEIQ 

85MI=$'*;x 

462 60SUB 610 
470 PQKE 752,1 

481 POSITION 2,22:? •QsCINTIlUlPTP|: FI 

I" 


490 SET B1,A 

581 IF A:70 THEI COTO 510 
521 IF A=67 TIEI COTO 181 

541 ENI 

560 ? CIIR$C125} 

580 POSITION 5,18:? "INGRESE DINERI EN 
CAJArl";:INPHT G 

600 POSITION 5,12:? "lECISTIAOO EN HEH 
ORIA :$";;? X 
610 COSUl 180 

620 IF G<M THEN POSITION 5,14:? *9IAY S 

ALBO El COITIA DE =$**;:? |-C 

646 IF G>K TIEI POSITIOI 5,14:? "lAT S 

AIDI A FAVOR DE =$";:? (-1 

616 IF G=X TIEI POSITIOI 7,14:? " IPiU 


IHF 


EN ORDEN 


': POSITION 9,21:? "Hasta 


Ppinto" 

664 POSITION 7,22:? "lESEA ITIA PLAIIL 
LA?"?:? "ÍS/IJ" 

666 CET 81,A:IF A=83 THEN GITI 101 
668 IF A=7I THEN POKE 559,6 
670 ENI 

610 SOIMD I,15,10,15:FOI 1=1 r0 5l:IEI 


T B:S01III 1,1,1,0 


710 RETÜRN 
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PROGRAMAS: continuación 


í 



O 


i 


ANTENAS. 

Este último listado permite calcular su antena 
para frecuencia modulada o para un canal de tele¬ 
visión (entre el 2 y el 13). 


3 OPEN tti, 

4 OtAPlICS e 

5 DIH K$ (2) 

6 GIAPHICS e 
II PRINT "K 


CJL) ¡>E tmEKftS F .M, Y T.V 


i:LF0H5) HERIMO COhT^E^Í» 


XI PRINT 

12 PRIMT _ 

11 PRIHT 

14 PRINT "FREC.VIDEO CAIAL 2: S5.2S N 
ESACICLOV 

15 PRUT "FRCC. VIDEO CAIAL 3= 11.25 H 
EGAC ICIOS*' 

15 PRINT "FREC.VIOEO CRIRl 4: 57.25 N 
EGMICLOS" 

17 PRINT "FREC.VIDEO CAIAL 5= 77.25 K 
ESACICIOS" 

II PRINT "FREC.VIDEO CANAL 6= 13.25 N 
ECACICLOS" 

19 PRINT "FREC.VIOEO CANAL 7=175.25 H 
ECACICIOS" 

20 PRINT "FREC.VIOEO CANAL 8=111.25 N 
EGACICLOS" 

21 PRINT TIEC.VIDEO CANAL 9=117.25 H 
ECACICLOS* 

22 PRINT "FREC.VIOEO CANAL 10=193.25 N 
EGACICLOS" 

23 PRINT "FREC.VIOEO CANAL 11=199.25 H 
EGACICLOS" 

24 PRUT "FREC.VIOEO CANAL 12=205.25 N 
EGACICLOS" 

25 PRINT "FREC.VIOEO CANAL 13=211.25 N 
EGACICLOS" 

26 PRINT "FREC.PROHEIIO F.H. = 98.00 H 
EGACICLOS" 

29 PRINT 

30 PRINT " igHJiiaidanjagI ";:INPUT 

r 

31 PRINT ¡PRINT 

32 A=150/F 
31 irlNl/F 

34 C=13l/F 

35 D=13D/F 

36 E=125/F 

37 GRAPHICS 0 
30 PRINT " 


IftFGO DE lOí ELEMENTOS 


PEFLECTOR 


39 PRINT 

40 PRINT 
í" CHS." 

41 PRINT 

42 PRINT ‘•SE0B 
CHS.";" 

5);" CHS." 

45 PRINT 


";INT(A«ieot0.5) 


3 "; 


";lNT(B»100fe.5} 

iHTC2Ne«ioeto.S4- 


46 PRINT 
J" CHS." 

47 PRINT 

48 PRINT 
;" CHS," 

49 PRINT 
58 PRINT 
J" CHS." 
52 ? 

77 ? 

78 ? 

80 PRINT 


RETE 5 


ií'IRECTCR 1 


DIRECTOR 2 


DIRECTOR 3 


";INTCC«1004^0.S) 


";INT(OK10IF0.5) 


";INTCENieOF|.5) 


DISTSMCIfi ENTRE ELEMEH'O'í , ÚP 


DISTíiHCia ENTRE ELEMENTOS 


REFLECTOR Y DIPOLC 


82 6ET ttl,A:IF A=83 THEN GOTO 85 
85 GRAPHICS O 

2500 GRAPHICS O 

2501 L=3fO/FH10e 

2505 K=e.2HL 

2506 N=0.1lfL 

2507 0=0.15«L 

2508 PRINT 

2509 PRINT ¡PRINT 

2510 PRINT 
(»;" CHS." 

2511 PRINT 

2515 PRINT 
CMJ;" CHS." 

2516 PRINT 

2520 PRINT 
tN)í" CHS" 

2521 PRINT 

2525 PRINT 
COI;" CHS. " 

2526 PRINT 
2530 LE=HFNFO^ 

2535 PRINT < 

ÍLEI;" CHS" 

2536 PRINT ¡PRINT ¡PRINT ¡PRINT 


DIRECT.i Y DIPECT.2 




Y DIPECT,3 


LaRGO DEL EJE 


";INT 

";INT 

"¡INT 

";INT 

";IHT 

PRINT 


2540 PRINT "DESEA OTRO CALCULO.5/N";, 
2545 GET tl.AÜF 0=03 THEN GOTO 6 
2550 IF A=78 THEN GOTO 2998 

2998 GRAPHICS • 

2999 EHD 
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Este juego te sirve para orientarte en un mapa 
basándote en los puntos cardinales. 

¿COMO JUGAR? 

El computador muestra un mapa de Sudamé- 
rica y una brújula. En e! mapa se ubicarán dos pun¬ 
tos representados por un cuadrado y un triángulo. 
El computador te preguntará la dirección en que 
se encuentra el cuadrado con respecto al triángulo. 

La brújula sirve de referencia. El juego dura 
hasta que incurras en 3 errores. Por cada pregunta 
correcta obtienes 10 puntos. 

SUGERENCIAS 

Puedes poner sonido en la línea 5010 come 
indicador de respuesta correcta. 

Puedes comenzar el juego con un récord más 
alto que el que presentamos, modificando el 
valor récord en la línea 10. 

Puedes crear nuevas coordenadas agregando 
datos en los diferentes puntos cardinales a partir 
de la línea 600. 


40 KCHV nj f íK 

41 If X=-l THEN SOTO 200 

42 G0SU8 100:GOTO 40 
50 DATA 55,70,30 

52 DATA 55,70,35 

53 DATA 180,00,100 

54 DATA -1,0,0 

99 REN ^ RUTINA DEL CIRCULO ** 

100 5=0.75:I=5:DEG íPLOT K,VW5:C0L0H 
1 

lio FOR 2=0 TO 360 5TEP I 
120 KC=M«SINCZ)«R 
130 YC=V*C05CZJ««N5 

135 IF R=35 AND CZ<98 OR Z>270J THEN F 
OR J=1 TO lO:DR0HT0 XC,YC4^5:NEKT J 

138 IF R=100 AND (Z>239 AND Z<309) THE 
N COLOR OSDRAHTO XC,YC:G0T0 ISO 

139 COLOR 1 

140 DRAHTO XC.VC 
ISO NEXT Z 

160 RETURN 

200 REN ««NAPA «« 

210 RESTORE 250 

240 READ X,Y 

241 IF X=-l THEN 400 

242 PLOT K,Y:GOTO 240 

300 DATA 101,10,182,10,183,10,184,10,1 

85,10,185,11,106,11,187,12,188,12,189, 

12,190,12,190,13,190,14,191,14,192.14 

302 DATA 193,14,194,14,194,15,194,16,1 

94,17,194,18,194,19,195,19,196,19,196, 

20,197,20,198,20,199,28,200,20,201,20 

304 DATA 202,20,202,21,203,21,204,21,2 


10 DIN DIR$(8),C00RD$C8):MID=3:REC0RD= 

0 

20 GRAPHICS 8:P0KE 82,0:C0L0R 1 

22 PLOT 2,2:IRAMT0 310,2:DRAHT0 310,15 
8;PL0T 311,2;DRAMT0 311,158 

23 DRAHTO 2,1S8:DRAHT0 2,2:PL0T 3,2:DR 
AHTO 3,158 

24 PLOT 10,40:DRAHT0 110,40:DRAHT0 110 
,120:DRAHTO 10,120:DRAHTO 10,40 

30 RESTORE 10 


TIPIANDO 


Brújula 
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340 0AT0 178,129,178,128,176,127,177,1 

27.176.127.175.126.175.125.175.124.175 
,123,175,122,175,121,175,120,176,120 
342 PATA 176,119,176,U8,176,117,176,1 

16.175.116.175.115.175.114.175.113.175 
,112,175,111,176,111,176,110,176,109 
344 PATA 176,106,177,108,176,107,176,1 
06,176,105,176,104,177,103,176,103,176 
,102,176,181,176,100,176,99,176,98 
346 PATA 177,98,177,97,177,96,177,95,1 

78.95.179.95.179.94.179.93.179.92.178, 
91,177,90,177,89,177,68,177,87,176,86 
348 PATA 179,86,179,85,179,84,179,83,1 
79,82,189,82,181,82,181,61,181,80,181, 
79,181,78,181,77,181,76,182,75,183,75 

350 PATA 183,74,183,73,182,73,181,73,1 

80.73.179.73.179.72.179.71.179.70.179, 
69,178,69,177,69,176,69,176,68,176,67 

351 PATA 176,66,176,65,175,65,174,64,1 
73,64,172,64,172,63,171,62,171,61,170, 
61,169,61,168,60,167,68,166,60,166,59 

352 PATA 166,58,166,57,166,56,166,55,1 
65,55,165,54,164,54,163,53,163,52,163, 
51,163,50,162,49,161,49,161,48,160,47 

355 PATA 168,46,166,45,160,44,168,43 

356 PATA 159,43,159,42,159,41,159,40,1 
58,39,157,39,156,39,156,38,157,37,158, 
37,159,37,159,36,159,35,159,34 

358 PATA 159,34,159,33,160,33,161,33,1 
61,32,162,32,163,32,164,31,164,31,165, 
30,165,29,166,29,167,28,168,28,169,27 
368 PATA 170,27,170,26,171,25,172,24,1 

73.24.174.24.175.24.176.24.177.24.178, 
23,179,22,180,22,181,22,181,21,181,20 
362 PATA 182,20,183,28,184,28,185,20,1 
86,20,186,19,187,19,187,18,187,17,187, 
16,186,16,185,16,185,15,185,14,184,14 
364 PATA 183,14,182,14,181,14,181,13,1 

81.12.180.12.179.12.179.11.179.10.178, 
10,178,9,177,8,176,8,176,7,176,6,176,5 
366 PATA 181,7,181,8,181,9,182,9 

368 PATA -1,0 

408 REH ** ELIJE PUNTO CARPIRA! «N 
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410 COLOR 1:PL0T 5S.78:A=IRT(RI0(e)^) 
♦1 

420 RESTORE SOOf^AsREAD X,Y,C00RI>$ 

431 ORAHTO X,Y 

441 ON A GOSUB 680.65O,7B9^7Se«8OO,O5e 

,910,950 

450 SOTO 1000 

SOi REH ** DATOS DE COORDERADAS ** 

501 DATA 55,50,NORTE 

502 DATA 55,90,SUR 
501 DATO 30,70,OESTE 

504 DATA 00,70,ESTE 

505 DATA 70,65,NORESTE 
501 DATA 40,65,NOROESTE 
507 DATA 40,91,SUROESTE 
500 DATA 70,91,SURESTE 
601 REH NORTE 

605 I=INT(RNDCO)«lin:RESTIRE 6404^1 
610 READ K1,V1,N2,Y2:60SU0 200l:RETURN 

640 REN DATOS «» 

641 DATA 100,50,180,100 

650 REH ** SUR ** 

655 I=INT(RNDC6]«l)n:REST0RE 690^1 
660 READ X1,V1,K2,Y2:60SUB 2e0e:RETURN 

690 REH W DATOS ** 

691 DATA 100,100,100,50 
700 REN «N OESTE ** 

705 I=INT«RBDCOHH)+l:RE5TORE 740*1 
710 READ X1,V1,X2,Y2:60SUB 2000:RETURN 

740 REH «f DATOS W* 

741 DATA 180,50,240,50 
750 REH «* ESTE *» 

755 I=IHTCRNOCOJ*l)*l:RE5TORE 790*1 
760 READ X1,Y1,X2,V2:60SUB 2eOO:RETURN 

790 REH *» DATOS «t 

791 DATA 240,50,100,50 
000 REH «H NORESTE ** 

805 I=INTCRHDIOJHl)*l;RESTORE 040*1 
810 READ Xl,Yl,X2,Y2í60SUB lOOOiRETURN 

840 REH «« DATOS «« 

041 DATA 240,50,180,100 
850 REH ** NOROESTE 
855 I=INT«RHDIO)»l)*l:RESTORE 890*1 
860 READ X1,V1,X2,Y25G05UB 2000:RETURN 

090 REH Datos w* 

091 DATA 180,50,221,80 
900 REH *» SUROESTE «« 


SOS I=INTfRNDtO)*l)*l:RESTORE 940*1 
910 READ X1,Y1,X2,V2:605UB 280B:RETURN 

940 REH ** DATOS *» 

941 DATA 108,100,240,58 
950 REH W» SURESTE H* 

955 I=INT(RNDCO)«l)*l!RESTORE 990*1 
960 READ X1,V1,X2,Y2:603UB 20e0:RETURN 

990 REH *» DATOS 

991 DATA 181,50,221,80 

999 REH «H IH6RES0 DE RESPUESTAS ** 

1000 POKE 752,1 
1005 ? ••6‘‘í 


iPUNTa.E ;tfi'JP!»mjh'ECORD : 


cord;"^K|'' 

1020 ? *‘|En que dirección esta el cuad 
rado en i" 

1025 ? "|rol4Cioo al trianoulo : 

I" 

1030 ? CHR$l26l;:F0R 1=1 TO 37:? CHR$t 
18)j:NEKT I:? CHR$t3)j*'ttT^TM“;;INPUT 
DIRS 

1040 IF DIR$(1,LENCCOORD$}1=COORD$ THE 
N 60SUB neo ¡GOTO 5000 
1050 GOSUB 71OO:GOSU0 1100:60TO 400 
1100 REH «H BORRA TRIANG. Y COBOS ** 
1110 COLOR OsPLOT X2,Y2;DRAIfT0 H2*4,V2 
:DRAHTO X2*2,V2-4:DRAHT0 X2.Y2 
1120 PLOT Xl,VlsDRAIfTO Xl*4,YUDRAHTO 
Hl*4,Yl-4íDRAlfT0 Hl,Yl-4íDRAHT0 XI,Y1 
1130 PLOT 55,70:DRAHT0 X,ViRETURN 
2000 REH ** POS. TRIANG. Y CUBOS HR 
2018 PLOT Xl,Yl:DRAHTO X1*4,V1:DRA1IT0 
X1*4,V1-4:DRAHT0 Xl,yi-4sDRAHT0 K1,Y1 
2020 PLOT X2,y2:DiAHT0 X2*4,Y2:DRAMT0 
X2*2,V2-4:DRAHT0 X2,V2 
2030 RETURN 

SOM REH RR ACERTASTE «R 
5010 REH RRSONIDO RR 
5020 PTJE=PTJE*10:IF PTJE>=RECORD THEN 
RECORD=PTJE 
5030 GOTO 400 
7100 REH RR PERDISTE RR 
7190 RESTORE 7250!FOR 1=1 TO StREAD A, 
BiSOUND 0,A,12,10íFOR J=1 TO BíNEXT J 
7200 FOR J=10 TO O STEP -1;50HHD 0,A,1 
2,J:HEXT j:next i 

7210 VID=0ID-1:IF 0ID=0 THEN VID=I:PTJ 
E=0 

7220 RETURN 

7250 DATA 05,05,76,25,72,25,05,50,60,1 

00 
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TIPIANDO: continuación 



El Submarino 


Este juego permite saber cuán bueno eres 
para calcular, basándote en las coordenadas y en 
tu habilidad para desplazarte en el espacio. 

El objeto es localizar y destruir con el míni¬ 
mo de disparos el submarino escondido. 

¿COMO JUGAR? 

El computador presenta un tablero dividido 
en columnas y li'neas. Las columnas están indica¬ 
das con letras y las líneas con números. 

Para disparar en la dirección deseada debes 
ingresar una letra y un número y luego pulsar 
la tecla RETURN. En caso de fallar se te dirá 
donde cayó tu disparo en relación al submarino. 

Al localizar finalmente el submarino el com- ' 
putador te hará saber la cantidad de disparos 
empleados y el grado naval que te corresponde. 

SUGERENCIAS 

Puedes agregar más grados navales a partir 


de la línea 195. 

Analiza la forma de ubicación del submarino 
en la línea 20. 


3 REN WHf gflIilIHrH.’M ATONICO «HM 
5 PIN N(10,18),A$(l),Cl$C21),CZ$(n),C 
3$C2il 

8 CRAPHIGS in0:P0KE 712,148:P0SITI0N 
2,18:? lt6;*'5UBNARIN0 ATONICO"!FOR T=1 
TO 388:NEXT T 

18 FOR 1=1 TO 18:F0R J=1 TO 18:NfI,J)= 
8:NEKT J:NEXT I 

12 C1$=CHR$(17J:C2$=CHR$(1):C3$=CHR$(2 
6) 

14 FOR 1=2 TO 28 

15 IF I/2=INTCI/21 THEN C1$(I}=CHR$(18 
) :C2$(I}=CHR$a81 :C3$m=CHR$(18] :G0T0 




Tf 
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:? "EL DISPARO FUE":? "AL NORESTE ":? 

1$ Cl$ ai=CHRS C23); C2$ CI) :CHR$ íl« ; C3$ 


"DEL SUBMARINO";RETURN 

(I)=CHR$C24) 


129 IF C<S AND F>V THEN POSITION 24,13 

17 NEXT I 


:? "EL DISPARO FUE":? "AL SUROESTE ":? 

18 Cl$(II=CHR$fS):C2$(I)=CHR$(4):C3$(I 


"DEL SUBMARINO":RETURN 

}=CHR$(3] 


131 IF OS AND F>M THEN POSITION 24,13 

28 REH IHf C00R8ENA8AS 8EL SUBMARINO «Hi 


;? "EL DISPARO FUE":? "AL SURESTE ":? 

30 v=iNTCRHPfe)«ie)n 


"DEL SUBMARINO":RETURN 

41 S=INTCRHDC8}»1BH1 


133 IF OS AND F=V TNEN POSITION 24,13 

45 HCU,S)=1 


;? "EL DISPARO FUE":? "AL ESTE":? "DEL 

48 E=8 


SUBMARINO":RETURN 

58 ? "M'*:P0KE 752,1:5ETC0L0R l,8,l:SET 


135 IF C<5 AND F:V THEN POSITION 24,13 

COLOR 4,B,6;SETC0L0R 2,0,12 


:? "EL DISPARO FUE":? "AL OESTE";? "DE 

55 POSITION 10,5 


L SUBMARINO":RETURN 

80 FOR 1=1 TO 10 


137 IF C=5 AND F<M THEN POSITION 24,13 

62 IF I=Í8 THEN GOTO 65 


:? "EL DISPARO FUE":? "AL NORTE":? "DE 

63 POSITION 1, C2«n+2:? I:GOTO 66 ^ 


L SUBMARINO":RETURN 

65 POSITION 0,(2»I)«2:? I 


139 IF C=S AND F>U THEN POSITION 24,13 

66 NEKT I:FOR 1=1 TO iOíPOSITION UII» 


;? "EL DISPARO FUE":? "AL SUR":? "DEL 

2),2:? CHR$(644^I):NEKT I 


SUBMARINO":RETURN 

67 FOR 1=1 TO lOíPOSITION 1*CI«),2:? 


180 ? "N";POKE 752,l:P0SITI0N 10,5:P0K 

CHR$C64iI):NEXT I 


E 82,10 

70 POSITION 2,3:? ClS 


190 POKE 82,2;P0SITI0N 2,10:? "HAS LOG 

71 FOR 1=4 TO 22;IF INTII/2IOI/2 THEN 


RADD HUNDIR EL SUBMARINO CON ";E:" C 

POSITION 2,1:? C2$:GOTO 73 


ARCAS DE PROFUNDIDAD" 

72 POSITION 2,1:? '*1 1 1 1 1 1 1 1 i t 


195 IF E(4 THEN POSITION 4,15:? "tWBB 

I" 


r.M.«’WiM«NMW»W:H!l=!:H»»;P0SlT10N 

73 NEXT I 


9,18:? "!n!!FELICITACIONES!!!!!":GOT 

74 POSITION 2,23;? C3$; 


0 200 

75 POKE 82,24:P0SIT10N 10,0:? "HUiiifiláí 


197 IF E<=10 THEN POSITION 4,15:? *'fl!l 



■r.Rúr-n hü'Jüi ei el de cíipnñN4n:ii»íKi].Mi 

77 POSITION 24,5:? “COOROENADAS:" 


9,18:? "!!!!!FELICITACIONES!!!!!":GOT 

00 POSITION 24,7:? "Colunna ÍA-1):":IN 


0 200 

PUT A$;C=ASC(A$)-64 


198 IF E<15 THEN POSITION 4,15:? "fflE 

90 POSITION 24,9:? "FiU (1-101 ;'’:INPU 


MüiJRI FS F.l de 

T F 


9,18:? "TRATA DE NUEVO ":GOTO 200 

100 E=E?1 


199 IF E>=1S THEN POSITION 3,15:? "09 

lio IF F=V ANO C=S THEN GOSHB 3100: FOR 


■FRF^ IIN HúRTNFPO DE áUÜR 

1=15 TO 0 STEP -e.l:SOUBO 0,4B,8,I:NE 


200 GOSUB 2000 

XT I:K=1M:G0T0 180 


210 POSITION 2,20:? " DESEAS JUGAR DE 

115 GOSUB 3100:GOSUB 120 


NUEVO 1=SI72=N0 ";:INPUT OP 

117 POSITION l+CC*21,2+(F»2l:? CHR$(16 


211 IF 0P=1 THEN 30 

01 


212 GRAPHICS 0:END 

118 K=2^2:F0R 1=22 TO 7 STEP -irPOSITI 


2060 L=57:H=45:P=45:F0R A=1 TO 6:S0UND 

OH 24,l:? ” •■;«=1M:NEXT 


0,P,10,14:FOR H:l TO 180:NEK,T H:P=L:L 

l:GOTO 80 


=H:H=p:next a 

120 REM M RONDE ESTA EL SUOHARINO «Ht 


2618 SOUND 0,0,0,6:RETURN 

125 IF C<5 AND F<M THEN POSITION 24,13 


3100 FOR L=9 TO 0 STEP -0.5 

:? "EL DISPARO FUE":? "AL NOROESTE ":? 


3110 FOR H=12 TO 15 STEP O.S:SOUND 0,7 

"DEL SUBMARINO":RETURN 


9-H,8,L:NEXT H 

127 IF C>5 AND F<M THEN POSITION 24,13 

----- 


3140 NEKT L:S0UND 0,0,0,0:RETURN • 


22 


MUNDOATARI 














ASSEMBLtR 



La columna USR dedica este número a sus nuevos 
amigos que pueden iniciarse en el fascinante mun¬ 
do del lenguaje de máquina mediante el comando 
USR de! ATAR! BASIC. 


Los códigos de máquina consisten en una serie 
de números almacenados en la memoria del com¬ 
putador. 

La función USR del BASIC ejecuta los códi¬ 
gos de máquina desde el programa original. 

Es importante conocer donde se localizan los 
códigos de máquina en la memoria. 

Existen por otro lado una serie de parámetros 
que se ubican a continuación del llamado y que 
corresponden a valores que se introducen según 
el formato siguiente: 

A= USR (1536, Al, 81, C1, etc.! 

Para localizar el código de máquina en la me¬ 
moria existen 3 métodos usados corrientemente: 


1. ACCESO DIRECTO EN MEMORIA: 

En este método el programa BASIC carga 
los códigos désde el disco o desde una o varias 
líneas de DATA. 

El siguiente listado demuestra lo explicado: 


e 

REM 6EN0.1 



le 

FOR 1=6 TO 57:RE6I> híPOKE 153641,A: 

MCKT I:? CKR$(125) 



26 

K=üSRÍi556,3,7) 



S6 

£N6 



46 

DATA 164,165,83,133,264, 

165,88, 

133, 

26 

1^,164,184,176,246,14,165, 

263,24, 

105, 

46 

,144,2,236,264,262,268 



56 

DATA 246,133,283,24,104, 

184,161 

,263 

,144,2,236,264,133,263,162, 

26,166, 

6,16 

3, 

53,133,205,165,265,145 



66 

DATA 263,236,265,260,262 

,268,246,36 

76 

END 
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ASSEMBLER: continuación 


Comentario de líneas: 

0 Estamento REM 

10 Ciclo para mover 58 códigos de máquina des¬ 
de las líneas 40-60 hacia la página 6 (localiza¬ 
ción 1536). 

20 Llamado de la función USR con los siguientes 
parámetros: 

1536; localización inicial del código de má- 
quina. 

9; Indica número de linea de pantalla en la 
que localiza el alfabeto. 

7; Indica la posición de columna para el ini¬ 
cio del alfabeto, 

30 Instrucción de término. 

Digite cuidadosamente este listado y observe 
la posición en que se edita el alfabeto. 

Modifique los valores de la posición horizon¬ 
tal Y vertical para comprobar lo afirmado. 


2. MEDIANTE STRING: 

Para acelerar la velocidad de ejecución en la 
ubicación de los códigos a la memoria se recurre 
a esta técnica del string, en la cual cada carácter 
representado en el interior del string corresponde 
al valor del código de máquina. 

Este método presenta dificultades para edi¬ 
tarlo en pantalla en forma de texto. 

El siguiente listado utiliza este método: 


80 REH * 

90 REH &EM0.2 
100 DIH P$C58) 

110 p$="hHvaB __ 

120 JÍ=U5R(AI>R(P5),9,7) 
130 ENO 


? CHR$(125) 

(C 
EOZ»' 


fLJPVnK 




Comentario de líneas: 

90 REM .. 

100 Dimensiona string P$ con ^ 

limpia la pantalla con la función CHR$(i2b). 
110 En el string se editan los caracteres que con¬ 
tienen el código de máquina. 

120 Llamado de la función USR con los siguientes 
parámetros: 

ADR(P$): contiene la localización en memo¬ 
ria inicial para el string PS- _ . 

9 y 7: corresponden a las posiciones horizon¬ 
tal Y vertical de inicio del alfabeto. 

130 Fin 


3. ACCESO DIRECTO: 

Esta forma es más eficiente para ejecutar una 
rutina en lenguaje de máquina. Accesa directamen¬ 
te los caracteres si se cumple la condición que ios 
caracteres y el resto del llamado puedan colocarse 
directamente en hasta 128 caracteres de una línea 
BASIC: 


148 REH ^ 

150 REM DEM0.3 

168 &IM P$t58)5? CHR$C125) 

170 H=ü5R(APR("haYriBx riahhaLHy-i ts pi 

9,7) 



Comentario de líneas: 

150 REM 

160 Dimensiona string P$ y limpia pantalla. 

170 Llamado a la función USR con los siguientes 
parámetros: 

ADR:con el contenido de caracteres del string. 
9 y 7.son las posiciones ya comentadas. 
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ASSEMBLBR: continuación 


APLICACIONES USR 


c) Normal a inverso: 


Ahora iniciaremos algunos ejemplos de aplica¬ 
ción de la función USR; 


1. RUTINAS CON TEXTO: 

a) Mayúsculas a minúsculas. El siguiente listado 
cambia las letras según lo indicado: 


b kEH PROGRAH.SeS 
le Din A$(26} 

20 A$="CHAMGE UPPER TO LOME» CASE" 

36 X:USB CADR ÜZ JlA&* 

i .A&fl(A$) .LEII(ASl) {REM HAXI 

MUN LENGTH 15 256. 

46 ? A$ 
se ENP 

66 H=usR tADp t»'hh!ntuTih.T]h?CTffTO m JkH 
ni-i f33iIljlMl3Hinh[EHSieQBiI‘'),Pl/P2);R 
EK USE FOR ANY LENGTH. 


Comentario de líneas: 

10 Dimensiona string A$. 

20 Introduce texto en A$. 

30 Ejecuta llamado de la función USR mediante 
el método directo con los siguientes pará¬ 
metros: 

ADR(A$): string con rutina ML. 

ADR{A$): localización en memoria del Texto. 
LEN(A$); dimensiona largo del texto. 

40 Edita texto en pantalla con PRINT. 

60 La rutina ML para cualquier dimensión de 
texto. 


b) Minúsculas a mayúsculas. El siguiente listado 
realiza el proceso inverso: 


0 REN PROGRAH.Oee 
16 61H A$(24} 


26 A$=*'lower case to upper case" 

36 X=USR(A6RC"hhnM3hh,iaHEI3Í*&l^^B 

, arr (a$) , len (a5) ) 

46 ? A$ 

56 END 

66 K=USR CAPP C"hhinha!hTlhJaffrWe.T.JiaC! 
iñ . pi. p?); be 

K USE FOR ANV LENGTH. 


♦rKHJPw 


6 REH PR0GRAH.687 
18 DIN A$(22) 

26 A$="N0RHAL TO IHUERSE TEXT" 

38 X=USR(ADR("hhn!hn3hha«0Qi 
).ADR(A$T,L£N(A$)) 

46 ? A$ 

56 END 

66 K=usp CADR í"hh!roxr 
i:in!rri«nin.T:T!vn!^ ¿nXEQDA"} > pi. p2) : ren 

USE FOR ANV LENGTH. 


d) Inverso a normal: 


0 REH PR06RAM.668 
16 DIN A$(22) 


26 lE} iügmi oaao"_ 

36 X=USRCADR("hhffÍlin3f'l>3N03) 

),ADR(A$),LEN(A$)) 

46 ? A$ 

58 END 

66 X=USR(ADR("hhni^13^T]hXlNE£^^ 
► b:4;píj} 4").pi.p2):rem 
USE FOR ANY LENGTH. 



uon estas interesantes demostraciones de la 
capacidad del lenguaje de máquina terminamos 
nuestra columna. 

En el próximo número continuaremos ana¬ 
lizando otras aplicaciones dirigidas especialmente 
a los estudiosos del tema. 9 
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PROGRAMAS 




The First XLErt 



Respondiendo a la inquietud de muchos lectores 
de MUNDOATARI, proporcionamos infármación 
acerca de programas utilitarios, que son descono¬ 
cidos por la mayoría de ¡os usuarios. Sin embargo 
pensamos que su aplicación sería beneficiosa para 
todos ellos. 


WORD PROCESSOR (XLENT) 

Este programa tiene en Estados Unidos un 
precio de US$ 29,50. Se trata de un procesador de 
textos, ya desaito anteriormente por MUNDO- 
ATAR!. 

En esta oportunidad informaremos su uso: 


1. EDITOR 

Al cargar el programa aparece la pantalla para 
editar. En la parte superior está una li'nea guía de 
tabulación. Luego siguen 20 líneas correspondien¬ 
tes a la ventana para editar. Las últimas 4 líneas 
se refieren a los comandos, como por ejemplo: 
status, mensajes para diferentes funciones, y al 
lado derecho figuran los iconos que grafican las 
siguientes funciones; 

- Print 
-Copy 
— Cut 
— Paste 
— Search 
— Disk utility 
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PROGRAMAS 


En esta pantalla se puede ingresar texto me¬ 
diante el teclado. El cursor se mueve con las teclas 
de flechas o bien con el joystíck. Al presionar ESC 
se modifica la selección de inverso, la que también 
se ejecuta con el joystick o teclas de flechas. 

La tecla ESC actúa como escape de cualquier 
área del programa. 

2. EDITAR FUNCIONES SIMPLES 

Opera en forma similar al editor de BASIC. 
Incluye el uso de las siguientes teclas: 

- Back Space 
-CTRL/DEL 
-CTRL/INS 
-SHIFT/CLEAR 

— CAPS, para manejar mayúsculas y minúscu¬ 
las 

— BREAK, mueve el cursor al inicio de la si¬ 
guiente línea t 

La siguientes teclas difieren -del BASIC: 

- SHIFT/DEL: permite borrar una palabra, una 
frase o una línea, dependiendo de la letra que 
se presione a continuación (W, S o P). 

- SHIFT/INS: permite pasar del modo insert al 
de digitación o viceversa. 



3. FUNCION TABULACION 

La línea superior que mencionamos anterior- 
rnente indica mediante flechas verticales la posi¬ 
ción de los tabuladores. 

Las funciones de tabulación son similares al 
BASIC. 

La tecla TAB mueve el cursor hacia la siguien¬ 
te posición. 

— SHIFJ/TAB: crea un nuevo tabulador en la 
posición del cursor. 

— CTRL/TAB: elimina tabulador existente bajo 
el cursor. 

— SHIFT/CTRL/TAB; limpia todos los tabula¬ 
dores. 

— SHIFT/CTRL/R: inicializa las posiciones de 
tabulación cada 5 espacios. 


4. MODO DE ALINEAMIENTO 

Este modo permite que parte de los strings 
se puedan alinear por la derecha de la posición 
del cursor. Al presionar INV se invoca este modo. 

El uso más común de esta función será para el 
manejo de decimales en el ingreso de columnas de 
números. 

En el modo de alineamiento los caracteres 
ingresados son desplazados a la izquierda. 

Al presionar las teclas BACK SPACE se ali¬ 
nean por la derecha y se borra el último carácter 
ingresado. 

5. COMANDOS DE EDICION AVANZADA 

Presionando la tecla START se mueve el 
cursor a la posición izquierda superior de la pan¬ 
talla. Al repetir START el cursor se mueve al 
inicio del documento. 

Otras combinaciones son: 

— SHIFT/CTRL/5: disminuye el color de fondo. 

— SHIFT/CTRL/6: aumenta el color de fondo. 

— SHIFT/CTRL/7: disminuye luminosidad del 
texto. 

— SHIFT/CTRL/8: aumenta luminosidad del 
texto. 

— SHIFT/CTRL/E: mueve el cursor al final del 
texto. 

— SHIFT/CTRL/W; mueve el texto de una línea 
a otra. 

— SHIFT/CTRL/,: modifica velocidad de repe¬ 
tición de teclas. 

— SHIFT/CTRL/M: recuerda 5 posiciones espe¬ 
cíficas de un documento. Ellas se pueden ac- 
cesar en cualquier momento mediante la se¬ 
cuencia SHIFT/CRTL/G. Las posiciones pue¬ 
den encontrarse en ventanas diferentes. 

— SHIFT/CTRL/G: salta el cursor a una de las 
5 posiciones mencionadas anteriormente. 

— SHIFT/CTRL/S; permite cargar un njjevo 
set de caracteres para ser usado por el editor. 

— SHIFT/CTRL/P: borra todo el texto desde un 
punto a otro. Luego de seleccionar esta fun¬ 
ción se puede desplazar el cursor a cualquier 
lugar en el documento. 

— SHIFT/CTRL/ESC: modifica el diseño del 
cursor, de un cuadrado a una línea. 

— SHIFT/CTRL/CLR: borra todos los textos, 
desde la posición del cursor al final. 

— SHIFT/CTRL/SPACE: proporciona líneas de 
relleno hasta la posición del cursor. 

— SHIFT/CTRL/I; mueve el cursora la posición 
izquierda superior. 

— SHIFT/CTRL/1: mueve el cursor a la posición 
izquierda superior de la página siguiente. 

En nuestro próximo número continuaremos 
con la descripción iniciada este mes. 

Hasta entonces. # 
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EQUIPOS 



Orives INDUS 


Estas nuevas disketteras traídas 
al mercado chileno son total¬ 
mente compatibles con la línea 
A TA fíl ST y brindan otros lujos 
y comodidades adicionales. 


Los modelos disponibles en 
MUNDOATARI son: 


1. INDUS GT-100 

3,5" D¡8k Dríve 

Diskettera de doble lado y 
doble densidad. La velocidad 
de transmisión de datos es de 
250 kilobits por segundo. 

Formatea 320 kilobytes por 
lado con ún total de 720 Kb. 

Las diferencias con la SF-314 
son varias. Su tamaño es de 20 
cm. de largo por 10 de ancho, 
lo que representa casi la mitad 
del drive ATARI. Está hecha ca¬ 
si íntegramente de metal, lo que 


le proporciona un aspecto más 
resistente. Además posee un 
counter digital, que permite sa¬ 
ber en todo momento en que 
track se efectúa la lectura o la 
escritura. , 

Future System -productora 
de este periférico— garantiza su 
óptimo funcionamiento por 
12.000 horas de uso. Esto puede 
darle una idea de la confiabilidad 
en este producto. 


2. GT.1000 

5,25" D¡sk Drive. 

Al igual que el modelo ante¬ 
rior tiene un diseño resistente y 
tiene una refinada cubierta de 
plástico que le da un toque de 
elegancia. 

Entre sus características tiene 
un switch para proteger y des¬ 
proteger discos (impide que la 
diskettera escriba en el disco). 
Posee un track scanner, que in¬ 
dica la posición exacta del cabe¬ 


zal de lectura para efecto de leer 
o escribir. 

Este Drive permite usar la 
completa gama de software PC. 
por medio del PC Ditto, lo que 
ha sido siempre un anhelo de 
los usuarios de ATARI ST. 

Existen dos modelos, uno de 
simple lado (40 tracks, 360 Kb) 
y otro de doble lado (80 tracks, 
720 Kb). Este último modelo no 
lee discos formateados en simple 
lado al igual que el simple tam¬ 
poco lee discos de doble lado. 

La GT-1000 viene bien docu¬ 
mentada y con dos programas en 
formato 3,5" en formato MS/ 
PC-DOS. Uno es para instalar la 
diskettera en el computador y el 
otro para formatear discos y ar¬ 
chivos. 

Los 2 modelos descritos se 
encuentran en demostración en 
nuestro local en Avenida Los 
Leones 308, Providencia. 9 


28 


MUNDOATARI 







Colaboración 


Como sorpresa para nuestros amigos presentamos 
e¡ programa de un amigo lector que desarrolla a 
su manera un tema tratado anteriormente 
Agradeceremos que nos escriba solicitando su 
premio, pues es el ganador de $ 5.000 en soft' 
ware de nuestro Catálogo. 


I> 
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EDUCACION: continuación 


6 DIM CHAR$(28),CHAG$(9J,6ft$(100). 

BB$( 

106 

,PKK(106),PVY(106),IL(4),FG(4) 

,CHH 

$(1 

,CHrS(l):605UB 900 


7 GOTO 89 



8 FOR A=1 TO 47;COLOR 0:PLOT 8,85+A:DR 

AMTO 25,854^A:REXT AtRETURN 


9 POSITIOM 

6,110:? 116 


10 

? 

llllllllU 

81 

11 

» 116;" 

11 1 

18 

12 

? #6;" 1 

11111 lili 

II 

13 

? 116;"1 

1 1 1 

18 

14 

? «6J" 

1 111 lili 

11 

15 

? #6;" 

i 111 111 

18 

16 

? I»;" 

lili 11 

II 

17 

? »6;" 

11 

U 

18 

? 116;" 

11 

11 

19 

? 1»;" 

1 1 

II 

20 

? 116;" 

1 í " 

21 

? #6;" 

1 

1" 

22 

? «6;" 

íll 

1" 

23 

? I»;" 

11 mili 

1" 

24 

? as;" 

11 11 11 lililí 

L " 

25 

? «6;" 

11 11 11 11 11 lililí 

18 

26 

? #8;" 

11 11 11 11 11 11 

It 

27 

? i»;" 

11 11 11 11 11 11 

81 

28 

? 116;" 

1 

ir 

29 

? 1»;" 

1 

II 

30 

? ll6;"llliU lUlil 

" 

31 

? 116;" 

111 11 

It 

32 

? «6;" 

11 

II 

33 

RETUSN 



35 

POSITI08 0,86:? «6 


36 

? mi" 

1111111111111 

li 

37 

? «6J'' 

11 i 1 11 

II 

38 

? 

11 1 ti 

18 

39 

? *16;" 

L 1 1 

11 

40 

? «6;"1 

1 

1 '* 

41 

? «6;"i 

1 

i " 

42 

? ttt;’i 

111111111111 

1 " 

43 

?W; "lllllll 1 1 lllllll " 

44 

? ***;"! 

11 11 

l " 

45 

? 

11 11 

1 " 

46 

? *I6;"1 

11111111 

1 " 

47 

? mi" 

ill 1 1 111 " 

48 

? «6;" 

1 11 lllllLllll 11 

i " 

49 

? «6;" 

1 11 11 J 

II 

50 

? 

1 11 111 

II 

51 

? I»;" 

111 111 

n 

52 

? «6;" 

i 1 

n 

53 

? t»;" 

lili 11111 

« 

54 

? «6;" 

11 11 11 11 " 

55 

? 1»;" 

1 11 11 

1 " 


/ . 



56 ? t»;"l lili 1" 

57 lETUIN 

66 ? lej" lili” 

ítbr 1 1" 

í»;'* 1 1" 

ttM" 1 1" 

86;” 1 i" 

65 ? #6;" 11111111111" 

66 ? 86;” i 1" 

# 6 ; "1 1 “ 

86;"1 1111111" 

#6;"l 1" 

7e?li6;"l 1'* 

71 ? <»;'‘l lllllll" 

86;"! 1" 

86;"l 1" 

tt6j "1 llllllU" 

«6;" 1 1" 

76 ? ttej" 1 1” 

77 ? w ;" lllllllll";«ETUBN 
89 REM 

98 6RÉPIIC5 815ETC0L0B 2,I,U:SETC0L0I 
1,8,1:79=32 :K=0JCOLOR 1 
91 LL:7;Pr=16:í05U6 188 ;LL:6JPÍ=21:GI5 
Ul ie8:LL=4:PV=«:t05UB leitFOB EE:l T 
0 9:LL=3!PY=43:G05UB ISeiNEKT EE 
9! BK:24;F0B EE=1 TO 5:LL=5 ;PY:21:605U 
B 1G0:IIEKT EE :PV=py-ll*6: IL:6 ¡GOSUB 18 
8;Py=100!FOR B=1 TO Z sY=PV-2: H=39 !PK=5 
9J FOR A=1 TO ISIREAP CHftíSlGOSBB 580: 
REf» CHftR$,COD:P*=PKH:Z9=fl:G05üB SO»: 
GtSIB 2e0:PK:P*+l:Z^3Z:)(=){n6:8E8T A 
94 P?=12«;I=:7:8E8T B 


61 

62 

ó3 

64 


67 

68 
69 


72 

73 

74 

75 
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EDUCACION: continuación 




^XA^ÍftSüCi 


Ltiia tara e:e**ert, efí píi 1 , 


95 SOTO 561 
99 REH 

108 Y=PY-2:FOR lt=i TO LL:IE8D CHAS$;GO 
SUI 50l:PK:PXn:Z9=0:BEáD CIAIS, CID;GI 
SUB Z88iC0»:E0SUB 5ie;PX=PH-l:Z9=S2 
102 IF C8D=1 THEN GIS8B ZIO^COD 
105 y=Y+lltPY=PT+ll5MEXT ll:PH:PK+2 :K=K 
UCIErUIN 

199 REH lagsEiKnsiEsaBBBi 

200 PLOT K,Y:DRM 4 TD K^IC,Y:IRéMTO X^IO 
iVHl:DRftMrO M,Yfll:DRAim R,y:IErURN 

201 S=0:GO5UB 2ie:FIR A^O TI t:PLOT 
S,Y;IRAMrO K+1,T+ll:5:5*2:NEKT ftjRETüR 

N 

202 S=0:SO5UB 200:FOR 0=0 TI B:PLOT X-l- 
SrYS&RíWTO Ka^5,Tni:S=S*2:NEHT A:RETÜR 

N 

300 FOR A=1 TO 3:G0SÜB 5e5:S05HB 35:60 

SUB 9 :HEXT A:RETURN 

305 POSITION 0 , 110 :? R 6 

318 ? m¡» llUlillll " 

311 ? ttO;" 11 1 


312 ? # 6 ;" 1 

313 ? « 6 ;"I 

314 ? W;*' 

315 ? lio;” 

316 ? ttt;” 

317 P 05 ITIOI 8,90 

318 ? » 6 ;" 1 11 . 

319 ? « 6 ;" 1 11 

328 ? # 6 ;" 1 11 

321 ? # 6 ;»' 111 


11111 lili 
1 lili 111 
1 111 11 1 
1 1 
11111 


111 

11 


lili 
1 i 
1 l 
lili 


11 1 
11 1 
11 1 
111 


327 FOR B:l TO SPrNEXT BjIETURR 
499 REH 


508 IF Z 9=32 THEN CHAR$rCNAC$ 

501 IO=PEEK ( 56 e) 4 ^PEEK{ 5 Íl)a (256 :I 1 =PEEK 
a 0 ? 4 } 4 PEEK ( 18 ^ 5 ) «256 
520 FOR Ü =1 TO LEI(CH 8 R$) 

538 12=573449 {(«SCCCHRRS (1,13)-19)9(6): 

I3:I19^PY»48+0X91-1 


541 FOR 2=0 T 8 7 :P 0 XE II+^E+He, PEEK ( 12 ? 
Z) :NEHT Z:REKT U:IF J =6 THEN RETRRI 

541 IF CIIAR$='L*' THEN CIAIS:*'." 

542 IF Z 9=0 THEI SOSUI 551 

543 RETURN 

549 REH EIIEHKEKBS 3 ESEB^H 

558 A 5 :AS 4 i :PXX(AS} :PX :PYY (A 5 ) =PY :AA$ ( 
A 5 }cCHAG$:BB$(AS):Ci(AR$: RETURN 

559 REH 

560 SP= 6 :P 0 I[E 756 , 284 :? *'ipcÍon Q-COA 


profestr sin soplar" 

561 ? "opcion Q-ctn cinpalero soplen" 

562 ? "Opción S'cen profesor y coMp^e 
ro" 


564 ? "tttal opcioi ";:IIPIT OPT 

565 IF OPT:l THEN G 8 SIB 8 :SOSUI 9 : 8 P :1 
¡GOTO 401 

568 IF 0 PT :2 THEN G 8 SUB 8 :G 0 SUB 35 :OP= 


2 :S 0 ri¡) 680 

567 £OSUB 8 : 68 SBB 35 :S 0 SIB 9 : 0 P=I 


runira ie r?s:>i&ítj 


601 l=l;l=t:OPEI •l, 4 , 0 ,"IC:" 

602 IF DEU =0 THEN CDLIR 1 ¡F 8 R A =6 TO 3 
8 :P 10 T e, 1379 A:lRAHTO 319 , 1379 A: NEXT A 
¡COLOR 0 :PLOT 14 , 138 :»RAHr 8 14,158 

603 IF DElte THEN DRAMTD 25 e, 158 :DtAHT 
O 258,138 : 6 RAHTI 14,138 

604 IF DEU =8 THEN RESTORE 109 O:Z 9 =:|:PV 


= 14 e;F 0 R A =1 TO 2 :REAR CHARS :PX= 2 :fiOSU 
I SOI :PY=PV+ 8 :NEXT A: 0 EU =1 
605 G 05 U 8 750 

IF OPOl AN» 0 P <>2 TtEN KK :5 
IF 0 P =1 THER XK :0 
609 IF 0 P =2 THER RK =3 
611 SET ttl, IN:GOTO 620 -KK 
615 IF 5 P =2 THEN ? "se OOtO NUChl la S 


606 

687 

608 


Opiada" :CLOSE ttl:SP=e;S 05 U 8 308 :t 0 SUI 
797 :S 0 r 0 561 

617 IF IN :27 THEN L=L- 1 ; WSUl 788 ; 5 P :5 
P +-1 

628 ? CHRSCIN);;L=L 9 i:iLa.)=IN:If 1=2 
THEN 780 
638 GOTO 618 

708 IF 1 L( 1 )=I 5 C(AA${M)) AID nCZ):ASC 
(BISCH)) THEN 880 
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EDUCACION; continuación 


702 ? :? :? ;? :? "intíntalo otra »ez*‘ 
!Ue; 60 TO 616 

751 K=RND(0};H=INTai5«Kl 

761 PK:PKXt»-l:PV=PYV(M):CHIR$="S;"!G 

osuB saisrsTuiN 

769 REM 

781 FG=ASCCAO$(U}) :P}l-l:PV:9l: 29=32 :tH 
IR$::CHRSCFG) 

781 605 I B SRliGOSÜB 35 ;RETIRI _ 

791 P X= PK X f (O -1:Py-P YV ÍW):Z9:32:CH* R$: 
CHR$(1LU)) ;GeSUB 581:CH«R$=CHI$(XL(29 
):r9=ejPK=PX*l 

791 IF CH«$="." THEM CH*RÍ="„" 

792 605 » SiliRETORM _ ^ 

797 CHH$=AaUH}:CHZ$=BB$(U) 

798 PH=PXXC«-lJPy:PYV(M>: 29=32 :CHÍRS= 
CHM$:G 05 U 6 50 l:PX=PXn:Z 9 =«:CHftR$=:CK$ 
¡GISBB 58 i:RErURN 

808 REH lOKBEfiQüISBÍHBHHi 

802 GOSIB 790 !? ' ITOff ’iFiR 0=1 TI 2 :PO 
SITION 8 , 9 e!r 8 R B =1 TO 50 : ICXT BiGISIB 
6 l:fi 05 UB ; 5 :NEXT O 

80 J CL 0 5 E ttl: 60 T 0 560 _ 

901 REM ■ -JJl-jJilfeWgTMM—— 

911 6 RAPHIC 5 8 : 5 ETCOLOR 2 , 8 , 14 :CILIR 3 
: 5 ETCOLOR 1 , 0,0 

912 PLOT 182 , 128 :RftAKT 8 144 , 7 O:OtRMT 0 
144 , 63 :MAHTO 146,61 : 0 RAMT 8 18$,81 

915 PRftUrO 185 , 5 e:DRAHTO lI 5 , 5 l:»RIHrO 
128 , 55 :l>RAHT 0 128,78 
921 8 RAMT 0 90,120 

938 FOR ft=i TO 17 :PL 0 T 9 l+l>> 12 l+ 4 :IRftH 
TO 182 -D, 128 + 4 : 0 = 0 + 0 .SiNCKI 4 

936 80 = 62 :FOR A =1 TO 75 

937 P 05 ITI 0 I 185 ,BV:? i 6 ;" " 

938 P 05 ITI 0 II 185 ,BM+l;? 8 C >¡‘‘11 “ 

939 P 05 ITIOI 185 ,BU+ 2 !? « 6 ;"illl" 

948 P 05 ITIOR 185 ,BV+ 3 :? « 6 j"llll' 

941 P 05 ITIOI 185 ,BM+ 4 :? f 6 {“ 11 ":IV=B 
tf+l;KEXT 8 

942 FOR ft=i TO ZOlPLOT 1 I 5 -A,BI+FFG: 0 R 
6 WT 0 185 +A,BV*FFGSFF 6 ::FF 6 +I. 2 ;IEIT A 

943 Füft ft:i TO 480:50080 0 ,A. 7 , 1 S: 50 UN 
6 0 ,ft,S, 15 : 5 ETCOLOR 2 ,ft, 8 :IEIT A 

945 5ETCOLOR 2,0,14:50IÍNO l,8,8,l:50UN 
8 i, 8 , 0,0 

946 P 05 ITIOI 8 , 5 :G 05 UB 36 :fOSITI 8 ll 0,4 
líSOSUB 18 :P 0 ltE 752,1 


947 ? ’• M.GB-N. presenta”:FOR 4=1 TO 3 

l 0 ;HfcXT 6 !? 1 ? :? :? :? “ Clase 

S con ATftRI":? : FOR A=1 TO ZIOlMEXT A 

948 ? " con el profesor CHip*;? " 9 el 
asistente Benito":? 

958 RETU RII __ 

999 um 

1068 OfiTA H,_,2,L,i,8,i,a,8,I,.,8,R,6, 
8,C,5,0,F,r,l,B,e,0,M,g,B,C,4,l,5,r,B, 

8 ,a ,0 

1018 BATA R.a.e, 5 ,C, 8 ,Y,.,l,L,a,l,l,C , 

8,T,i,0,Z,r,0,H, f,e,8,.,8 

1020 DATA M,b, 0 ,T,a,e,C,r,l, 8 ,l, 8 ,H,., 

8,H,n,0,T,c,0,R,e,0,F,e,8 

10JO DATA R,U,O,O,S,0,C,«,8,l,h,8,I,r, 

O, N, i,0,P,d,0, P, t, 0, C, I, I 

1840 DATA A,g,0,A,U,8,Z,R,8,C,4,l,l,9i 

1 , 8,bí0jA, 1 ,0, G, a, 8 ,1, n, 8, T, l, I 

lose DATA C,«,0,5,i,8,6,e,8,S,l,l,P,6, 

• > R,-,2 ,Pi-,O» A, S, 8 , 5, b, 8 ,1, i, I 

1868 DATA F,_, 2 , 5 ,^ 0 , 5, e, 8 , T, e. 0 ,P,O , 

8,8,.,Z,C,l,2,B,r,l,I,_,0,A,t,8 

1070 DATA H,e,2,H,e,2,A,r,2,l,r,2,l,e, 

2 ,l,n ,2 

1080 DATA L,a, 0 ,C,e, 8 ,P,r, 8 ,l,d, 8 ,P,A, 
1,5,M,0.E ,U,0,G, d, 8 , T, b, 8 , D, y, 8 , H, O, 8 . 

P, H,0,T,M,0,Y,b,O,L, U,e 

1881 DATA A,C,e,T,h,0,P,a,0,U,_,0,R,P/ 

1 ,P,U,0,A,n,e,C,N, 8 , B, k, 8 , C, f, 8 , E,S,0, 

F,W,0,M,d,O.H,O,0,L, W,0 

189I 8 ATA aidigitej'espectivamnteE.Ü 

(Biay usci 1 as.y.Hi nu se ul asfi 

2808 RATA 20,20,28,15.0,28,20,20,14,0, 

15,16,18, 20,20,28, 28,16,13,6,4,6,0, 9,1 

3. IR • 
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PROGRAMAS 


Programas originales 


MUNDOATAR! presenta a continuación una se¬ 
rie de programas originales que usted puede agre¬ 
gar a su librería persona!. Se ofrece un servicio de 
correo para comunicarlo con ios productores de 
esíos prestigiosos programas utilitarios. 


PRIIMTER'S PATRIOT 

Excelente programa con figuras adicionales 
para Printshop. 

Los usuarios de este utilitario para impresora 
podrán encontrar nuevas figuras e iconos como se 
ilustra a continuación; 

El precio de este utilitario es de US$ 14. Los 
interesados pueden obtener en MUNDOATARI la 
dirección del fabricante. 



PITCH IN 


A A 

CIVIL EPA 
DEFENSE 



NATIONAL aTOMIC 
PARKS 


•tn.í 


BUS STOP 



LIGHTHOUSE 


illlMiMMir 

‘«ntiii 

ilpriMMiiir 

lili MIMIIII 


JAIL 



HANDICAP 





KNOWLEDCE 
MAIL i_AMP 



L1BRARY 



HOT DOG NUCLEAR GO FOSSIL BURDER 

POWER POWER 


SYMBOLS Or THE AMERICAN PATRIOT SYMBOLS POR THE PROÜD AMERICAN 



MARINES , ARMY/ MEDAL OF COAST 


USAF HONOR GUARO 


NAVY 



5UB 

ABSTRACT 


SHIELD 


T 

PURPLE 

HEART 



TARGET camOUFLAGE 


USMC SIDEARMS 
PIRANHA (.45 CAL.) 



PISTOL 

(VIKING) 



PATROL 

80AT 



TRITON 



(TANK) AIRSORNE JEEP FOOTPRINTS 



BARRACKS SOLDIER 


T 

BLACKBIRO 



WHEEL 


AIR 

DECAL CHOPPER 



FLAG 



FI5 


STAFF 

CAR 


SERVICE 

CROSS 



CHEVRON 



USN 

RANK 



MASTER 

SGT 



OFFICER COMMANO 


FIELO 

GRADE 


HIGH 

COMMAND 


STAFF 

OFFICER 


O 
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PROGRAMAS: continuación 


QWIK PIX Los lectores interesados pueden obtener en 

MUNDOATARI la dirección del fabricante. 

Muchos lectores nos han formulado la siguien¬ 
te interrogante: ¿Cómo introducir gráficos del 
Printshop en el ATARI Writer? 

MUNDOATARI encontró la respuesta en Es¬ 
tados Unidos en un programa bajo el nombre de 
Qwik Pix, que tiene un precio de US $ 20. 

La siguiente ilustración muestra las caracte¬ 
rísticas de este programa; 


Qwik Pix: The Print Shop 


— Atariwriter Connectíon 

TU 


cotfüCFiT a eoraER 


»CLf> 


PFlhT S*«r DI6K 

o 



THB 

123 NASHVILLB HIGH 
NBtt RIDGB. CBORGIlk 



Jul7 4, 19kfi 


AtarI Users 
Anywhere, Barth 


Dear Slrs: 

Create letterhead Uke thls as easllf as turnlng on your coapgUr. 
Labcls, titUn9, headIJnes, and aore are all possible. The enly llalt Is 
your laaglnatlon. 

Wlth Qwtk Pix <ta), r<><* can: 

Eipress your feellngs In a letter. 


Or announce hollday 




celebratlonsi 


Add a graphlc to headers A footers. Use kcons In y»nr nevaletter 
headllne or In the article. MI work Is saved to dlsk for use 
again and again (try that vith Print Shop letterheadst). Even 
add a border to your letterhead or anyehere llKe thls: 

_.... ■■■■11 Iii^ri ■■nMrriT^TMll~TTWMTrfl11fr~^1T^^ 


THI3 PME W»lS PRIHTBD IN ONE P*9S MITH ATARIMUITER t 8WIN PIX COMVBRTED ICONS 




Oe# lie Pix <ta) Works wlth any Epson graphlcs-coapatlble printer. He 

don't have rooa to tell you aore about the drop-down aenus, border cholees, 
■atl-aerge Optlon-Insert features, or aanually aodlflcatlon that lets you do 
It all. 


Oon*t delayi Buy Ose tK Ptx <ta) todayt 
SInce rely, 

Uhtte Llon Software 


Bofiáns: AUrI 8-Blt Computer wlth 48K snd Dlsk Orive 
IDM Epson Grsptilcs Compatible Printer 
Print Shop^ or Print Shop— Graphics Ubrarles 
Atarlwilter^ or Atariwriter ^us^. 



XHB PL.AG 

123 Nashvllle HIgh* 
New RIdge, Georgia 


THE PL.AG 
123 Nashvllle Hight 
New Rldge, Georgia 
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PROGRAMAS: continuación 



PAINT 

Bienvenido al mundo del futuro, materiali¬ 
zado en este utilitario en el que usted actúa como 
pionero. 

Paint es una forma de pintar y crear. 

Por medio del joystick puede inventar y ex¬ 
plorar. Se sorprenderá de cuan lejos puede llegar 
su aventura artística. 

El uso es simple. Se trata de un tablero tipo 
menú, en el que puede elegir las distintas opcio¬ 
nes para llevar a cabo sus obras. El programa se 
acciona por medio del teclado y con el joystick. 

Los comandos representados por funciones de 
las distintas teclas son los siguientes; 

A : muestra el arte 
B : pincel 

C : color 

D : dibuja 

E : borra 

F : llena con color 

G : carga una pantalla desde medio magnético 
H : ayuda (Help) 

I : llena en el interior 

J ; une cuadros 

K :■ salva pantalla en medio magnético 
L : dibuja línea 
M : mezcla colores 
N ; no 

O : dibuja círculo 
P ; pinta 
Q : cursor delgado 
R : dibuja rectángulo 
S : dibujo rápido 
U : utilitario 
W : ancho del pincel 
X : llena exterior 
Y : si , 

Z ; zoom (aumento) 

Barra espaciadora 

: 1 vez para índice de ayuda 
2 veces para menú de ayuda 


BASIC TURBO CHARGER 

Excelente programa para los seguidores del 
lenguaje de máquina. Contiene rutinas para imple- 
mentar mediante la instrucción USR. 

Los temas cubiertos se refieren a: 

— Movimiento de memoria 

— Modos gráficos 

— Búsqueda de string 

— Rutinas de tiempo 

— Rutinas de DLI 

— Player Missiles 

— Búsqueda y arreglos 

— 1/0 de rutinas de disco 

— Joystick 

— Manipulación de bits 

— Efectos especiales 

El programa se acompaña con manual de 128 
páginas. El precio en Estados Unidos es de 28 dó¬ 
lares. 

Usuarios interesados encuentran en MUNDO- 
ATARl la dirección del fabricante. 

Paulatinamente se tratará en nuestra columna 
USR rutinas de este utilitario. 



ADVANCED 

ATARI PROTECTION TECHNIQUES 

Para los lectores avanzados que han disfrutado 
con la primera versión del mismo nombre anun¬ 
ciamos la continuación, disponible en el mercado 
norteamericano al precio de US $ 22. 

Interesados pueden obtener en MUNDOATA- 
Rl referencias del fabricante. 
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NOTICIAS 



Vuelve 


Chico 


Chile 


Nos ha visitado ei Jefe de Depar¬ 
tamento de Educación de la Ilus¬ 
tre Municipalidad de Chile Chico, 
Sr. Nolberto Amagada, para in¬ 
formarnos de las actividades rea¬ 
lizadas en esa localidad, y de la 
reciente adquisición de un com¬ 
putador Epson Equity l Plus. 


Es digno de destacar el alto 
interés de modernización demos¬ 
trado por el Alcalde de dicha 
localidad, señor David Sandoval 
Plaza. 

En el mes de diciembre se 
acaba de concertar la compra 


de un computador EPSON Equi- 
ty I Plus con 640 Kb, con uni¬ 
dad de disco de 360 Kb, disco 
duro de 30 Mega y un monitor 
Epson. Esto ha sido posible gra¬ 
cias al continuo espíritu de su¬ 
peración demostrado en esa 
sureña ciudad y al gran apoyo 
brindado por MUNDOATARI. 

La capacitación fue realiza¬ 
da en el mismo mes de diciem¬ 
bre, dirigida al señor Nolberto 
Arriagada. El curso consistió 
en 24 horas técnicas y 40 horas 
prácticas en el computador. 

Las materias tratadas fueron; 

— Sistema Operativo OS/DOS 


3.2 y 3.3 

— Procesador de texto Word¬ 
star y Profesional Writer 

— Planillas de cálculo Lotus 
1.2,3 

— Base de Datos DBASE III 

MUNDOATAR, junto con 
reconocer el esfuerzo de esta 
ciudad, invita a todas las Muni¬ 
cipalidades interesadas en pro¬ 
yectos similares para que sigan 
el ejemplo, para lo cual noso¬ 
tros servimos de nexo y herra¬ 
mienta de difusión para lograr 
un mejor aprovechamiento de 
la tecnología del futuro. # 
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PROGRAMAS 


Leaderboard 


LEADERBOARD es un excelen- 
te simulador de golf, considera¬ 
do como el mejor de los dispo¬ 
nibles para ATAR! de 8 bits. 


Con este juego puedes simular 
un juego de verdad con todas 
las contingencias propias de él. 

Se juegan más de 72 hoyos 
en 4 distintos campos. 

Pueden competir más de 4 
jugadores en 3 niveles de dificul¬ 
tad. 

Hay diferencias entre los dis¬ 
tintos niveles. Por ejemplo en el 
nivel amateur no afecta el viento 
al lanzamiento, en cambio en el 
nivel Pro las bolas son desviadas 
y además debes pasar por tram¬ 
pas de arena, entre otras cosas. 
Estos obstáculos aseguran una 
competencia muy reñida y se 
conjugan tanto la habilidad co¬ 
mo la suerte. 

La totalidad de los movimien¬ 
tos son controlados por medio 
del joystick. Se selecciona las 
distintas opciones: palo deseado, 
puntería, campo visual, etc. 
Luego de apretar el botón rojo 
se efectúa el primer lanzamen- 
to y al soltarlo queda marcada 
la fuerza del tiro. 

Los gráficos son realmente 
buenos, las figuras están bien 
definidas, hasta el punto de ver 
como salpica el agua cuando 
la bola cae a un charcov 

En resumen Leaderboard se 
trata de un novedosa simulador 
con excelente gráfica, animación 
y sonido itodo al mismo tiempol 
Por estas razones no debiera fal¬ 
tar en tu colección de juegos, 
y menos aún si practicas este 
deporte. 
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PROGRAMAS: continuación 



Star Raiders 



1. Zylon Fighter (nave caza) 

Diseñada para ataques de 
alta velocidad. 

Manten distancia de ellas, 
porque a corto rango son le¬ 
tales. 



STAR RAIDERS se trata de un 
juego clásico, que revolucionó 
el mercado de los video-juegos. 

Es esta una razón suficiente 
para dedicarle nuestra atención. 


La temática es simple. 

Tú te encuentras en el espacio 
exterior a bordo de tu super-na- 
ve de combate, con el objeto de 
impedir que las flotas enemigas 
de zilones destruyan tus bases 
espaciales —las cuales varían en 
número de acuerdo al nivel de 
dificultad en que te encuentres. 


Debes saltar repetidas veces 
al hiperespacio para enfrentarte 
con las naves enemigas. Pero ten 
cuidado. Recuerda que tu com¬ 
bustible es limitado y con cada 
salto efectuado perderás una 
buena parte de éste. 

Cada misión concluye al des¬ 
truir la totalidad de las naves 
invasores. Si has logrado sobre¬ 
vivir obtendrás un grado de 
acuerdo a la cantidad de naves 
destruidas y al combustible re¬ 
manente en tus tanques. 

Las naves zilonas con las que 
te debes enfrentar son tres: 



2. Zylon Crusier (nave de reco¬ 
nocimiento) 

Este tipo de nave está desti¬ 
nado al patrullaje de ciertas 
áreas. No te atacarán hasta 
que las provoques. 



3. Zylon Basestar (base zylona) 

Estas naves están equipadas 
con escudos protectores y 
sólo pueden ser atacadas a 
corta distancia y mediante 
ráfagas de disparos. 

La guerra ha sido declarada 
y los Zylones son considerados 
enemigos de la Federación Espa¬ 
cial Atariana. 

Cuando veas un zylon en tu 
mira no muestres compasión y 
dispara hasta destruirla. 
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Robotrón 


ROBOTRON 2084 es otro inte¬ 
resante juego futurista de ¡a ro- 
bótica espacia!. Exige el máxi¬ 
mo de habilidad de los jugadores 


Nos encontramos en el año 
2084. 

Algo terrible ha ocurrido, los 
antiguos robots —hoy llamados 
androides— han llegado a un 
grado tal de perfeccionamiento 
que ya pueden prescindir de los 
humanos para su existencia. 

Es más, ellos han decidido 
destruir a los pocos sobrevivien¬ 
tes humanos de la faz de la 
Tierra. 

Pero no todo está perdido 
para la raza humana, porque un 
brillante grupo de cienti’ficos ha 
diseñado a "Robotrón", un mag¬ 
nífico robot guiado a control 
remoto y dotado de un potente 
rayo láser. Este ser es capaz de 
introducirse entre las oteadas de 
androides y rescatar a los sobre¬ 
vivientes humanos. 

Se puede guiar al robot con 
un solo joystick y disparando 
por medio del botón rqjo, o bien 
con 2 joysticks, en cuyo caso el 
número 2 sirve para guiar la di¬ 
rección del disparo. Esta última 
opción es la que permite avanzar 
más. 

Los enemigos son: 


1. indestructible Huiks: 

Peligrosos androides descere- 
brados y blindados. Su única 
función es bloquear el paso y 
matar sobrevivientes. 

El rayo láser puede alejarlos, 
pero no destruirlos. 

2. Mindiess Grunts: 

Son los más abundantes. Su 
forma de actuar consiste en 
agruparse y atacar en bloque. 
Son vulnerables al láser. 

3. Sinester Spheroids: 

Peligrosas esferas que, de no 
ser destruidas a tiempo pro¬ 
ducirán peligrosos androides 
que te lanzarán cargas explo¬ 
sivas. 



4. Gíant Bains: 

Androides caracterizados por 
su gran cabeza, tienen la ha¬ 
bilidad de fusionarse con los 
humanos y formar peligrosos 
mutantes, capaces de alcan¬ 
zarte en cualquier lugar con 
sus rayos teledirigidos. 



5. Cubíc Quarks: 

Curiosos tanques con orugas, 
que lanzan bolas de energía 
que rebotan por toda la pan¬ 
talla hasta llegar a tí. 


Recuerda que eres la última 
esperanza de la Tierra y de la 
Humanidad, i Animo I 
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PROGfíAMAS: continuación 



ARKANOID 


EARTH VIEWS 


El famoso juego ARKANOID, 
con el que se ha recaudado millones 
de monedas en los 2 últimos años, ye 
se encuentra disponible para los corr>- 
potadores ATARI de 8 bits. 

El juego consiste en destruir las 
distintas murallas de ladrillos por 
medio de una pelota que logras hacer 
rebotar mediante una barra controla¬ 
da por el joystick. 

Con esta descripción se puede 
pensar que el juego es una réplica del 
también célebre Break Out. En efecto 
hay una similitud, con la diferencia 
que existen 34 distintos niveles de 
juego y distintas murallas. 

Al llegar al último nivel te enfren¬ 
tarás a un moai {como los de la Isla 
de Pascua), que te lanzará monedas 
hasta destruirte. 

En el transcurso del juego descien¬ 
den unas esferas de colores que te 
dan poderes especiales: disparar, un 
imán para retener la.pelota, doble 
tamaño de la barra, tres pelotas, una 
vida extra o pasar automáticamente 
al nivel superior. 

Si aún no tienes este simpático 
juego puedes adquirirlo como forma 
de pasar entretenidos momentos en 
compañía de tus amigos. 


Este maravilloso juego proviene 
del Catálogo de la revista ANTIC, es 
del tipo educativo. 

Ha recibido numerosos premios 
por su ingeniosa temática. 

Tú eres un aventurero que viaja 
8 través del mundo buscando el 
amor, la fama, ei dinero o la felici¬ 
dad. 

Por ejemplo se recibe una instruc¬ 
ción: "busque la felicidad en 6om- 
bay". El próximo paso es dirigirse 
a esa ciudad. 

Ei tiempo avanza Junto con la 
búsqueda, es decir, tú empiezas sien¬ 
do joven y terminas anciano. 

Es increíble el número de ciuda¬ 
des disponibles en el mapa. 




DEFENDER 

Tú debes viajar a bordo de tu su- 
per nave de combate a través de las 
montañas da un planeta desconocido 
para salvar a una colonia humana 
residente. Ella se encuentra en gra¬ 
ve peligro por un ataque extrate¬ 
rrestre. 

Debes viajar en vuelos rasantes 
para destruir a los agresores. Pero 
cuidado, cuando un agresor captura 
a un humano y logra llegar a la partt 
superior de la pantalla se convertiré 
en un peligroso mutante. 

Es importante que destruyas al 
extraterrestre antes que eso ocurra, 
y sin dañar al terrestre. 

Una vez listo pasarás a otra etapa 
con más dificultades. 

Fuera del rayo láser cuentas con 
3 bombas que lanzarás presionando 
la barra espadadora.* 
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AHORA EN 
MUNDOATARI 
IMPRESORAS 
PANASONIC 
1080i - 144cps. 

$ 85.990 (IVA Incluido) 







MUND0ATAñl 


Los Leones 308 
Providencia - Santiago 








